File nach Wert durchsuchen

  • VBScript

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    File nach Wert durchsuchen

    Tach zusammen

    Ich muss eigentlich was simples machen, bekomms aber irgendwie nicht hin, also mein Skript macht einfach nix...

    Ziel wäre es, aus einem Text File einen Wert zu suchen und diesen dann zu ersetzen. In meinem Fall.

    Suche: "+"

    Ersetze mit: "00"

    Folgenden Code habe ich mal hinbekommen:

    Dim objFSO, QuellDatei, t

    QuellDatei ="c:\scripts\test.txt"

    Set QuellDatei = objFSO.OpenTextFile(QuellDatei)

    Do Until DateiAlt.atEndOfStream

    t = QuellDatei.ReadLine
    If Len(t) Then
    If InStr(t, "+") Then
    t = Replace(t, "+", "00")
    End If
    End If
    Loop
    QuellDatei.Close

    Diese Stelle, ist etwas sinnlos:

    Visual Basic-Quellcode

    1. Set QuellDatei = objFSO.OpenTextFile(QuellDatei)
    2. Do Until DateiAlt.atEndOfStream <--


    Das muss QuellDatei heißen

    gruss
    Das ist meine Signatur und sie wird wunderbar sein!

    Ohne die Änderungen wieder zu speichern, klappt das nicht.

    Visual Basic-Quellcode

    1. Option Explicit
    3. Dim objFSO, QuellDatei, Zieldatei, t
    4. Dim QuellFile, ZielFile
    6. Const FOR_Input = 1, FOR_Output = 2
    8. QuellDatei ="test.txt"
    9. Zieldatei = "testneu.txt"
    11. Set objFSO = WScript.CreateObject("Scripting.Filesystemobject")
    12. Set QuellFile = objFSO.OpenTextFile(QuellDatei, FOR_Input)
    13. Set ZielFile = objFSO.OpenTextFile(ZielDatei, FOR_Output, True)
    15. Do Until Quellfile.atEndOfStream
    17. t = QuellFile.ReadLine
    18. t = Replace(t, "+", "00")
    19. ZielFile.WriteLine(t)
    20. Loop
    22. QuellFile.Close
    23. ZielFile.Close
    25. MsgBox("Fertig")

    Das Script liest zwar nicht zeilenweise ein (.ReadAll) ersetzt aber auch alles gewünschte in der Datei

    Visual Basic-Quellcode

    1. Dim objFSO, Quelldatei
    2. const Quelldatei="test.txt"
    4. Set objFSO = CreateObject("Scripting.FileSystemObject")
    5. Set objFile = objFSO.OpenTextFile(Quelldatei, 1) ' Lesen
    7. strText = objFile.ReadAll
    8. objFile.Close
    9. strNewText = Replace(strText, "+", "00")
    11. Set objFile = objFSO.OpenTextFile(Quelldatei, 2) ' Schreiben
    12. objFile.WriteLine strNewText
    13. objFile.Close

    aber als Provisorium geht das schon. Allerdings bereitet auch mir das zeilenweise Einlesen Probleme. Es kommt immer bei Zeile 7 "Objektvariable nicht gesetzt". Was mache ich falsch ?

    Visual Basic-Quellcode

    1. Dim objFSO, Quelldatei, Zieldatei, strLine
    2. Const Quelle="test.txt"
    4. Set objFSO = WScript.CreateObject("Scripting.FilesystemObject")
    5. Set Quelldatei = objFSO.OpenTextFile(Quelle, 1 ) ' zum Lesen
    7. Do Until Quelldatei.AtEndOfStream ' «««
    8. strLine = Quelldatei.ReadLine
    9. If InStr(1, strLine, "+", vbTextCompare) Then
    10. strLine = Replace(strLine, "+", "00")
    11. End If
    12. Quelldatei.Close
    14. Set Zieldatei = objFSO.OpenTextFile(Quelle, 2) ' zum Schreiben
    15. Zieldatei.WriteLine strLine
    17. Loop
    19. Zieldatei.Close

    :cursing:

    Es gibt mehrer Möglichkeiten.
    Man kann das Programm zum Löschen der Quelldatei und Umbenennen der Zieldatei in Quelldatei erweitern.

    Oder die Datei komplett einlesen, ändern und zurückschreiben. (Siehe auch 1. Beispiel von Sachsenbauch).

    Nicht mit der Originaldatei testen!

    Visual Basic-Quellcode

    1. Option Explicit
    3. Dim objFSO, QuellDatei, t
    4. Dim QuellFile
    6. Const FOR_Input = 1, FOR_Output = 2
    8. QuellDatei ="test.txt"
    10. Set objFSO = WScript.CreateObject("Scripting.Filesystemobject")
    11. Set QuellFile = objFSO.OpenTextFile(QuellDatei, FOR_Input)
    13. t = QuellFile.ReadAll()
    14. t = Replace(t, "+", "00")
    16. QuellFile.Close
    18. Set QuellFile = objFSO.OpenTextFile(QuellDatei, FOR_Output,True)
    19. QuellFile.Write(t & vbCrLf)
    21. QuellFile.Close
    23. MsgBox("Fertig")


    @sachsenbauch
    Es kommt immer bei Zeile 7 "Objektvariable nicht gesetzt". Was mache ich falsch ?


    Die "Test.txt" wird nicht gefunden.
    Allerdings würde in der geänderten Datei nur die letzte Zeile des Originals stehen.

    Tach zusammen

    Ich hätte da noch eine Frage:

    Momentan Frage ich ja ab:

    Visual Basic-Quellcode

    1. Dim objFSO, QuellDatei, ZielDatei, t
    2. Dim QuellFile, ZielFile
    3. Const FOR_Input = 1, FOR_Output = 2
    4. QuellDatei = "\\amchzlmcfs01.also.intra\profiles\" & username & "\Flex\WINDOWS\phonenumber_raw.txt"
    5. ZielDatei = "\\amchzlmcfs01.also.intra\profiles\" & username & "\Flex\WINDOWS\phonenumber.txt"
    6. Set objFSO = WScript.CreateObject("Scripting.Filesystemobject")
    7. Set QuellFile = objFSO.OpenTextFile(QuellDatei, FOR_Input)
    8. Set ZielFile = objFSO.OpenTextFile(ZielDatei, FOR_Output, True)
    9. Do Until QuellFile.atEndOfStream
    10. t = QuellFile.Readline
    11. t = Replace(t, "+", "00")
    12. ZielFile.WriteLine(t)
    13. Loop
    14. QuellFile.Close
    15. ZielFile.Close


    Jetzt möchte ich aber folgendes machen:

    if +49

    then 0049

    if 079

    then +4179

    usw. Dieser code müsste simpel erweiterbar sein mit weiteren abfragen, resp. änderungen.

    Hat mir da einer einen Input, da ich mit meiner VBS Weiterbildung noch nicht soweit bin, da selber drauf zu kommen.

    Hallo zusammen

    Ich wieder mal...

    Das Skript funktioniert soweit, jedoch hatte ich heute mehrmals das Problem, dass ich eine Fehlermeldung erhalten habe:

    Line 14

    Char: 1

    Error: Index ausserhalb des gültigen Bereichs

    code: 800A0009



    Hier nochmals der Code:

    Quellcode

    1. Set objFSO = CreateObject("Scripting.FileSystemObject")
    2. set WshShell = WScript.CreateObject("WScript.Shell")
    3. UserName = WshShell.ExpandEnvironmentStrings("%Username%")
    4. If objFSO.FileExists ("PFAD\phonenumber_raw.txt") THEN
    5. Set del = CreateObject("Scripting.FileSystemObject")
    6. del.GetFile("PFAD\phonenumber_raw.txt").Delete
    7. end if
    8. Set fso = CreateObject("Scripting.FileSystemObject")
    9. Set MyFile = fso.CreateTextFile("PFAD\phonenumber_raw.txt",true)
    10. MyFile.close
    11. Set oFile = fso.OpenTextFile("PFADphonenumber_raw.txt",8,true)
    12. oFile.WriteLine Wscript.Arguments(0)
    13. oFile.close
    15. Dim objFSO, QuellDatei, ZielDatei, t
    16. Dim QuellFile, ZielFile
    17. Const FOR_Input = 1, FOR_Output = 2
    18. QuellDatei = "PFAD\phonenumber_raw.txt"
    19. ZielDatei = "PFAD\phonenumber.txt"
    20. Set objFSO = WScript.CreateObject("Scripting.Filesystemobject")
    21. Set QuellFile = objFSO.OpenTextFile(QuellDatei, FOR_Input)
    22. Set ZielFile = objFSO.OpenTextFile(ZielDatei, FOR_Output, True)
    23. Do Until QuellFile.atEndOfStream
    24. t = QuellFile.Readline
    25. t = Replace(t, "+", "+49")
    26. t = Replace(t, "+490", "+")
    27. ZielFile.WriteLine(t)
    28. Loop
    29. QuellFile.Close
    30. ZielFile.Close
    31. If objFSO.FileExists ("PFAD\phonenumber_raw.txt") THEN
    32. Set del = CreateObject("Scripting.FileSystemObject")
    33. del.GetFile("PFAD\phonenumber_raw.txt").Delete
    34. end if




    Das hier ist Line 14:

    oFile.WriteLine Wscript.Arguments(0)


    Wie lange, etc. darf eine Nummer oder Text sein der hier in das File geschrieben wird? Finde irgendwie nicht raus, welcher Typ der Datentyp ist..

    Hi

    Visual Basic-Quellcode

    1. Wscript.Arguments(0)


    Gibt dir das erste übergebene Argument beim Aufruf des Scripts zurück.
    Übergibst du kein Argument, dann existiert Wscript.Arguments(0) nicht und es folgt eine Exception.
    Das ist meine Signatur und sie wird wunderbar sein!