Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Aus Datei String lesen und in Neue Datei speichern

Frage Entwicklung VB for Applications

Mitglied: admin1987

admin1987 (Level 2) - Jetzt verbinden

05.01.2010, aktualisiert 14:46 Uhr, 5478 Aufrufe, 2 Kommentare

Hallo!

Hoffe Ihr könnt mir helfen?
Ich möchte aus einer Datei "test.txt" 3 Werte auslesen und alle Zeichen die in dieser Zeile danach sind in eine neue Datei speichern (Semikolongetrennt)

test.txt
Name: Test
Vorname: Tester
Alter: 3
Strasse: xx
Wohnort: xx

Es soll nun per vbs der Wert für den Name, den Vorname und das Alter gelesen werden und kommagetrennt in eine neue Datei (text.csv) gespeichert werden. (Es muss also nach dem String "Name:" gesucht werden und die Werte danach sollen in die csv exportiert werden.

test.csv soll dann so aussehen
Test;Tester;3

Wer kann mir helfen?

Danke und Grüße
Mitglied: bastla
05.01.2010 um 15:20 Uhr
Hallo admin1987!

Sollte etwa so gehen:
01.
Ein = "D:\test.txt" 
02.
Such = Array("Name: ", "Vorname: ", "Alter: ") 
03.
Aus = "D:\test.csv" 
04.
Delim = ";" 
05.
 
06.
Set fso = CreateObject("Scripting.FileSystemObject") 
07.
Text = Split(fso.OpenTextFile(Ein).ReadAll, vbCrLF) 
08.
UText = UBound(Text) 
09.
 
10.
Zeile = "" 
11.
For i = 0 To UBound(Such) 
12.
    LSuch = Len(Such(i)) 
13.
    Gef = "" 
14.
    For j = 0 To UText 
15.
        If Left(Text(j), LSuch) = Such(i) Then 
16.
            Gef = Mid(Text(j), LSuch + 1) 
17.
            Exit For 
18.
        End If 
19.
    Next 
20.
    Zeile = Zeile & Delim & Gef 
21.
Next 
22.
 
23.
fso.OpenTextFile(Aus, 8, True).WriteLine Mid(Zeile, 2)
Beim Schreiben in die csv-Datei wird die Zeile an eine schon bestehende Datei angefügt - falls die Datei neu erstellt werden soll, ersetzte die letzte Zeile durch:
fso.CreateTextFile(Aus).WriteLine Mid(Zeile, 2)
Gesucht wird übrigens nur jeweiils am Zeilenanfang nach dem exakten String (unter Beachtung von Groß-/Kleinschreibung) und es wird in dieser Version auch nicht geprüft, ob alle Werte gefunden wurden (falls ein Wert nicht gefunden wird, wird nur das Trennzeichen gesetzt - bei fehlendem Vornamen würde daher das Ergebnis so aussehen: "Test;;3").

Grüße
bastla
Bitte warten ..
Mitglied: admin1987
05.01.2010 um 16:19 Uhr
suuuper!
hat sofort funktioniert

Danke und schönen Abend

Grüße
Bitte warten ..
Neuester Wissensbeitrag
Festplatten, SSD, Raid

12TB written pro SSD in 2 Jahren mit RAID5 auf Hyper-VServer

Erfahrungsbericht von Lochkartenstanzer zum Thema Festplatten, SSD, Raid ...

Ähnliche Inhalte
Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (34)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...