Top-Themen

Aktuelle Themen (A bis Z)

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, 5505 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 ..
Ähnliche Inhalte
Batch & Shell
Ordnerstruktur lesen, Dateien - Neue Ordnerstruktur
gelöst Frage von internet2107Batch & Shell7 Kommentare

Ich verzweifle etwas an folgender Sache. Ich habe eine vorgebene Ordnerstruktur, in der sich Dateien befinden. Diese Dateien sollen ...

VB for Applications
Wie lese ich einen String nach einem mehrfach vorkommenden Buchstaben aus?
gelöst Frage von GERz0cKErZVB for Applications13 Kommentare

Hallo, um es zu verdeutlichen, ich möchte aus einen String (Bsp.: ich/bin/ein/string/blabla) die letzten Buchstaben auslesen in diesem Fall ...

Microsoft
Batchdatei: Dateien nach String durchsuchen, Dateinamen in .txt speichern
gelöst Frage von elcheffe123Microsoft22 Kommentare

Ahoi! Der Titel sagt eigentlich schon alles. Ich möchte eine Batchdatei schreiben, die im aktuellen Ordner( unbekannte anzahl an ...

Batch & Shell
Mit Batch-Datei eine Datei lesen, Zeilen ändern und als neue Datei schreiben
gelöst Frage von GeoSemBatch & Shell20 Kommentare

Hallo Ich versuche nun schon seit einiger Zeit das "kleine" Script (unter Windows 8) zum laufen zu bringen - ...

Neue Wissensbeiträge
Perl

Perl hat heute Geburtstag: 30 Jahre Perl: Lange Gesichter zum Geburtstag

Information von Penny.Cilin vor 7 StundenPerl2 Kommentare

Hallo, auch wenn es wenige wissen und noch weniger Leute es nutzen. Perl hat heute Geburtstag. 30 Jahre Perl ...

Sicherheit

Blackberry stirbt - Keine Updates für Priv mehr

Tipp von certifiedit.net vor 7 StundenSicherheit1 Kommentar

Blackberry wird zu einer 08/15 Firma und geht wohl mehr und mehr den Weg, den HTC schon ging. Von ...

Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 2 TagenWindows 1011 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 2 TagenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell22 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Netzwerkgrundlagen
Belibiges Teilnetz einer Subnetzmaske rausfinden?
gelöst Frage von CenuzeNetzwerkgrundlagen18 Kommentare

Wundervollen Gutentag, mittlerweile kann ich Subnetting so einigermaßen, aber ein Problem habe ich noch. Netzwerkadresse und Boradcast errechnen ist ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless12 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Windows Server
Logging von "gesendeten Nachrichten" auf Terminalservern
gelöst Frage von Z3R0C0MM4N0THiN6Windows Server10 Kommentare

Hallo zusammen, kann mir jemand auf kurzem Wege sagen ob 1) die per Task-Manager (oder damals tsadmin) an Benutzer ...