Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem beim schreiben in Datei
Autor: Liv0
Datum: 10.01.08 18:53
Hallo an Alle, ich hab nen kleines Problem und komm leider nichtmehr weiter 'Einträge für CEG in ini schreiben Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f, g Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\_scripts\in.ini", ForAppending, True) f.Writeline ("TEXT") ==== das funktioniert soweit, mein Text wird immer an's ende der INI Datei geschrieben Nun der Teil mit dem Problem Ich durchsuche die INI bis er zum ersten mal zum Zeichen ] kommt. Danach soll er einfach eine Zeile mit dem Text "TEXT" einfügen. Entweder überschreibt er mir dann einfach die Textdatei oder er macht garnix! Nur funktionieren will es nicht Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\_scripts\in.ini", 1, True) ' Set g = fso.OpenTextFile("c:\_scripts\in.ini", 2, True) 'Zeile wird ausgegeben mit Anzahl des Arrays Do Until f.AtEndOfStream ReDim Preserve arrA(i) arrA(i) = f.ReadLine Wscript.Echo i & " " & arrA(i) 'Suche nach "]" vorkommen =InStr(1, arrA(i), "]") Wscript.Echo("vorkommen: ") & vorkommen If ( vorkommen > 0) Then schreiben End If Grüße, Steff i = i + 1 Loop f.close Function schreiben f.WriteLine "TEST" end function

Problem beim schreiben in Datei

1.730

Liv0

10.01.08 18:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen