VBScript: Textdatei auslesen und überschreiben

Dieses Thema VBScript: Textdatei auslesen und überschreiben im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von janni80, 19. Apr. 2005.

Thema: VBScript: Textdatei auslesen und überschreiben Hallo zusammen, habe eine Textdatei und möchte das die Datei Zeile für Zeile abgearbeitet wir, und wenn in einer...

  1. Hallo zusammen,

    habe eine Textdatei und möchte das die Datei Zeile für Zeile abgearbeitet wir, und wenn in einer Zeile der Wert 1031 vorkommt, soll dann die komplette gelesen Zeile in eine neue Datei geschrieben werden, mein Code sieht momentan so aus, läuft aber nicht, hoffe auf Hilfe.

    Function TextStreamTest

    Set objFSO = CreateObject(Scripting.FileSystemObject)
    Set objFSO1 = CreateObject(Scripting.FileSystemObject)
    Set objFile = objFSO.OpenTextFile(C:\Documents and Settings\jcourtis\Desktop\MailLog\20050221.log, 1)
    Set objFile1 = objFSO.OpenTextFile(C:\Documents and Settings\jcourtis\Desktop\MailLog\olympiakos.log, 2)

    Do While Not objFile.AtEndOfStream
    Dim Line
    Line = objFile.AtEndOfStream
    For each line in objFile
    if 1031 in line then
    obFile1.write()
    Loop

    End function


    Gruss Janni
     
  2. Versuche das mal. Bei mir funktioniert es.

    Code:
    Do Until objFile.AtEndOfStream
      		
      Zeile = objFile.ReadLine
    				
    		If InStr(Zeile, 1031) Then
    			objFile1.WriteLine Zeile
      		End If
     
    Loop
     
Die Seite wird geladen...

VBScript: Textdatei auslesen und überschreiben - Ähnliche Themen

Forum Datum
VBScript Fehler bitte um Hilfe Windows XP Forum 18. Juni 2012
VBScript Backup mit Archivbit unter Win7 Windows XP Forum 6. Sep. 2011
VBScript in HTML: BrowseForFile in einer Webseite einbauen Windows XP Forum 25. Juni 2011
Error 2738; Could not acces VBScript: Alle Lösungsversuche gescheitert Windows XP Forum 15. Juni 2010
Per vbscript eine OU im AD anlegen Webentwicklung, Hosting & Programmierung 11. Jan. 2008