Hallo,
ich möchte einen String in eine Textdatei über VBS einfügen.
Der String nimmt eine ganze Zeile ein.
String ist in meinem Beispiel die „Sequenznr“
Der String soll immer an der gleichen Stelle in der Textdatei stehen.
Meine Idee ist dass nach einem Begriff gesucht wird, wäre in meinem Besipiel der Begriff " Bediener". Dieser Begriff ist immer fest und in jeder Textdatei vorhanden.
Nach diesem Begriff soll der String/Zeile eingefügt werden.
Hab schon lange gesucht doch nichts genaues gefunden.
Hoffe auf Hilfe 
Schonmal jetzt vielen Dank!
Hier mein bisheriger Code:
today = Date()
Dim present
present = Time()
Zeitstempel = Year(today) & right(„0“ & Month(today), 2) & right(„0“ & Day(today), 2) & right(„0“ & Hour(present), 2) & right(„0“ & Minute(present), 2) & right(„0“ & Second(present), 2)
Set fso = CreateObject(„Scripting.FileSystemObject“)
Set oFile = fso.OpenTextFile(„M:\Matt_16_VBS\Datapage\52585.txt“)
i=0
’ Erstmal zählen wieviele Einträge
while not oFile.AtEndOfStream
i=i+1
oFile.ReadLine
Wend
oFile.Close
’ Array definieren
REDIM sEingabe(i)
Set oFile = fso.OpenTextFile(„M:\Matt_16_VBS\Datapage\52585.txt“)
i=0
’ Jetzt Werte ins Array übernehmen
while not oFile.AtEndOfStream
sEingabe(i)=oFile.ReadLine
i=i+1
Wend
oFile.Close
'Beispiel für Zugriff
for j= 1 to i
if Instr(sEingabe(j), „Auftragsnummer“) then
Auftragsnr = mid(sEingabe(j), 18)
end if
next
for k= 1 to i
if Instr(sEingabe(k), „Werkzeugnummer“) then
Werkzeugnr = mid(sEingabe(k), 18)
end if
next
for m= 1 to i
if Instr(sEingabe(m), „Chargennummer“) then
Chargennr = mid(sEingabe(m), 17)
end if
next
Sequenznr = Zeitstempel & „$“ & Auftragsnr & „$“ & Werkzeugnr & „$“ & Chargennr
msgbox Sequenznr
Const ForReading = 1, ForWriting = 2, ForAppending = 8
set File = fso.OpenTextFile(„M:\Matt_16_VBS\Datapage\52585.txt“)
strGelesen = File.ReadAll
strGelesen = Replace(strGelesen,";",",")
msgbox strgelesen