Zeilen aus TXT per VBS zusamenfassen und mit SEMIKOLON trennen

  • VBScript

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Eierlein.

    Zeilen aus TXT per VBS zusamenfassen und mit SEMIKOLON trennen

    Hallo,

    ich habe über Wget sowie htmastxt folgende TXT Datei erzeugt.

    z.b. 10.10.10.222.txt








    Quellcode

    1. Printer
    2. =======
    4. Default Destination: shredder
    6. 10030_rech1_1
    7. Description: Lexmark E360dn
    8. Location: Porsche Cottbus
    9. Printer State: idle, accepting jobs.
    10. "Print file sent, waiting for printer to finish..."
    11. Device URI: socket://10.56.62.148:9100
    14. 10030_rech1_2
    15. Description: Lexmark E360dn
    16. Location: Porsche Cottbus
    17. Printer State: idle, accepting jobs.
    18. "Print file sent, waiting for printer to finish..."
    19. Device URI: socket://10.56.62.148:9100
    22. 10030_Service
    23. Description: Lexmark E360 dn
    24. Location: Porsche Cottbus
    25. Printer State: idle, accepting jobs.
    26. "Print file sent, waiting for printer to finish..."
    27. Device URI: socket://10.56.62.147:9100
    28. .....






    Nun möchte ich folgendes erreichen

    das aus dem Bereich

    10030_Service

    Description: Lexmark E360 dn
    Location: Porsche Cottbus
    Printer State: idle, accepting jobs.
    "Print file sent, waiting for printer to finish..."
    Device URI: socket://10.56.62.147:9100

    folgendes wird
    am liebsten sollte in der ersten Zeile vorher der Wert
    Betrieb;Drucker; Bezeichnung; Location; Printer; Printer status;Device;URL
    und dann die Werte aus der Datei
    10030;10030_Service;Description: Lexmark E360 dn;Location: Porsche Cottbus;Printer State: idle, accepting jobs.;"Print file sent, waiting for printer to finish...";
    Device URI: socket://10.56.62.147:9100;Dateiname hier 10.10.10.222

    sprich
    Betrieb;Drucker; Bezeichnung; Location; Printer; Printer status;Device;URL
    10030;10030_rech1_1;Description: Lexmark E360dn;Location: Porsche Cottbus;Printer State: idle, accepting jobs.;"Print file sent, waiting for printer to finish...";
    Device URI: socket://10.56.62.148:9100;Dateiname hier 10.10.10.222
    10030;10030_rech1_2;Description: Lexmark E360dn;Location: Porsche Cottbus;Printer State: idle, accepting jobs.;"Print file sent, waiting for printer to finish...";
    Device URI: socket://10.56.62.148:9100;Dateiname hier 10.10.10.222
    10030;10030_Service;Description: Lexmark E360 dn;Location: Porsche Cottbus;Printer State: idle, accepting jobs.;"Print file sent, waiting for printer to finish...";
    Device URI: socket://10.56.62.147:9100;Dateiname hier 10.10.10.222

    Die Zeile : " "Print file sent, waiting for printer to finish..."
    kann da sein muss aber nicht bzw. kann einen anderen Inhalt haben, wenn nicht vorhanden, dann soll diese Leer gelassen werden

    10030;10030_Service;Description: Lexmark E360 dn;Location: Porsche Cottbus;Printer State: idle, accepting jobs.;;Device URI: socket://10.56.62.147:9100;Dateiname hier 10.10.10.222



    die Nummer vorne ist immer 5 Stellig. d.h. sie muss nicht 10030 sein sonder jegliche andere 5 Stellige Nummer.



    Ich hoffe ihr könnt mir helfen.



    Vielen Dank für Eure Rückmeldungen

    Hier mal ein Beispiel in Basic.
    Es sollte kein großes Problem sein, das nach VBS umzusetzen. Zum Testen eine EXE im Anhang.

    Visual Basic-Quellcode

    1. #COMPILE EXE
    2. #DIM ALL
    4. FUNCTION PBMAIN
    5. DIM Quelle$, t$, t1$, tmp$, S$, Ziel$, x&
    7. S = ";"
    9. quelle = INPUTBOX$("Namen der Quelldatei eingeben:", "Quelldatei")
    10. ziel = INPUTBOX$("Namen der Zieldatei eingeben:", "zieldatei")
    12. OPEN quelle FOR INPUT AS #1
    13. OPEN ziel FOR OUTPUT AS #2
    15. PRINT #2, "Betrieb;Drucker; Bezeichnung; Location; Printer; Printer status;Device;URL"
    17. WHILE NOT EOF( 1 )
    18. LINE INPUT #1, t
    19. t = TRIM$( t )
    20. IF LEN( t ) THEN
    21. IF LCASE$( LEFT$( t, 4 )) = "desc" THEN
    22. PRINT #2, LEFT$( t1, 5 ) & S & t1 & S t & S;
    23. x = 1
    24. ELSEIF x = 1 THEN
    25. PRINT #2, t & S;
    26. x = 2
    27. ELSEIF x = 2 THEN
    28. PRINT #2, t & S;
    29. tmp = t
    30. x = 3
    31. ELSEIF LCASE$( LEFT$( t, 4 )) = "devi" THEN
    32. IF t1 <> tmp THEN
    33. PRINT #2, t1 & S & t ;
    34. ELSE
    35. PRINT #2, t ;
    36. END IF
    37. PRINT #2, S & "Dateiname hier "; EXTRACT$(quelle, ".")
    39. x = 0
    40. END IF
    42. IF LEN( t ) THEN t1 = t
    43. END IF
    45. WEND
    46. CLOSE
    48. MSGBOX "Fertig", %MB_ICONINFORMATION, "Info"
    50. END FUNCTION
    Dateien

    • svenac.exe

      (11,78 kB, 133 mal heruntergeladen, zuletzt: )

    Hallo,

    vielen Dank, genau das was ich gesucht habe.
    jedenfalls funktioniert es ohne Probleme, mit leichten Einschränkungen

    Leider kenn ich mich mit VBA / VBS nicht aus. Daher wüsste ich es nicht als VBS umzusetzen.

    Vielleicht kann hier nochmal auf Basis VBS aufgeriffen werden.

    Unterm Strich habe ich am Schluss 3 scripte

    Script 1 für für Datei xx.xx.xx.xx.txt ( wobei xx variabel ist)
    Script 2 für Datei xx.xx.xx.xx.txt ( wobei xx variabel ist)
    Script 3 für Datei xx.xx.xx.xx.txt ( wobei xx variabel ist)

    Wo ich im VBS script selber editieren kann welche Datei er ziehen soll und wo er hinspeichert ( ohne die Abfrage einer Inbox) .
    Es funktioniert auch soweit alles , nur das er als URL immer ...Dateiname hier 10 schreibt
    Wenn im VBS die Möglichkeite an dieser Stelle ....z.b. über "http://printers" & "quelle (Datei ohne Endung " einzutragen wäre s perfekt

    Aber sonst bisher Top und DANKE schön für die Hilfestellung.

    Und hier die VBS- Version:

    Visual Basic-Quellcode

    1. Option Explicit
    3. Dim FSO, Datei, DateiAlt, DateiNeu, QuellDatei, ZielDatei
    4. Dim t, t1, tmp, x, DatName
    6. Const S = ";"
    8. QuellDatei ="d:\##\10.10.10.222.txt"
    9. ZielDatei ="d:\##\svenneu.txt"
    11. Set FSO = CreateObject("Scripting.FileSystemObject")
    13. Set DateiAlt = FSO.OpenTextFile(QuellDatei)
    14. Set DateiNeu = FSO.CreateTextFile(ZielDatei, 2)
    15. Set Datei = FSO.GetFile(QuellDatei)
    16. DatName = Left(Datei.Name, InStrRev(Datei.Name, ".") - 1)
    18. DateiNeu.WriteLine("Betrieb;Drucker; Bezeichnung; Location; Printer; Printer status;Device;URL")
    19. Do Until DateiAlt.atEndOfStream
    20. t = DateiAlt.ReadLine
    21. t = Trim(t)
    22. If Len(t) Then
    23. If LCase( Left(t, 4)) = "desc" Then
    24. DateiNeu.Write(Left(t1, 5) & S & t1 & S & t & S)
    25. x = 1
    26. ElseIf x = 1 Then
    27. DateiNeu.Write(t & S)
    28. x = 2
    29. ElseIf x = 2 Then
    30. DateiNeu.Write(t & S)
    31. tmp = t
    32. x = 3
    33. ElseIf LCase(Left(t, 4)) = "devi" Then
    34. If t1 <> tmp Then
    35. DateiNeu.Write(t1 & S & t)
    36. Else
    37. DateiNeu.Write(t)
    38. End If
    39. DateiNeu.Writeline(S & "Dateiname hier ") & UCase(DatName)
    40. x = 0
    41. End If
    43. If Len(t) Then t1 = t
    44. End If
    46. Loop
    47. DateiAlt.Close
    48. DateiNeu.Close
    50. MsgBox "Fertig", 64, "INFO"

    Danke Eierlein ,

    vielen lieben Dank und tolles Lob an Dich bzw. allen die Versuchen jemanden ohne VBS Kenntnisse zu unterstützen

    so hatte ich mir das gedacht und hab entpsrechende Anpassungen schon vorgenommen,
    nun ist mir aber aufgefallen, dass

    beim Beispiel

    richtig

    10030_rech1_1
    Description: Lexmark E360dn
    Location: Porsche Cottbus
    Printer State: idle, accepting jobs.
    "Print file sent, waiting for printer to finish..."
    Device URI: socket://10.56.62.148:9100

    Betrieb;Drucker; Bezeichnung; Location; Printer; Printer status;Device;URL
    10030;10030_rech1_1;Description: Buchhaltung;Location: Porsche Cottbus ;Printer State: idle, accepting jobs.;"Print file sent, waiting for printer to finish...";Device URI: socket://10.56.62.148:9100 ;10.112.230.119/printers/;


    falsch

    10040_rech1_1
    Description: Lexmark E360dn
    Location: Porsche Cottbus
    Printer State: idle, accepting jobs.
    "Print file sent, waiting for printer to finish..."
    Device URI: socket://10.56.62.xxx:9100

    Betrieb;Drucker; Bezeichnung; Location; Printer; Printer status;Device;URL
    10040;10040_rech1_1;Description: Buchhaltung;Location: Porsche Cottbus ;Printer State: idle, accepting jobs.;Device URI: socket://10.56.62.xxx:9100 ;10.112.230.119/printers/;

    steht.

    wenn die Zeile
    "Print file sent, waiting for printer to finish..."

    nicht gefüllt ist, wandert beim Konvertieren der gesamte dahinterliegende Bereich nach rechts, somit stimmen die Bezeichnungen mit dem darunterliegenden Wert nicht mehr überein. Sprich wenn aktuell gedruckt wird sind 7 Zeilen in der TXT Datei wenn nicht sind nur 6 Zeilen befüllt.

    Vielleicht ist es ein Ansatz die Zeilenwerte zum Teil abzufragen
    diese beginnen ja immer mit folgenden Werten

    beim drucken

    5 Stellige Nummer
    Description:
    Location:
    Printer State:
    "
    Device URI:

    nicht beim drucken

    5 Stellige Nummer
    Description:
    Location:
    Printer State:
    Device URI:

    Daher kann ich mir vorstellen wenn der Wert " nicht vorhanden ist spring zum nächsten Wert

    Wie bekomme ich es hin, dass wenn in der Zeile des Printer status z.b. mit dem Wert " nicht beginnt
    der Wert nicht gefüllt ist, dass er dann den nächsten gefunden Wert in die Spalte Device einträgt

    Hierzu benötige ich letztmalig Hilfe von Euch.

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „svenac2010“ ()

    Danke das wars.... klappt nun alles wie ich es haben möchte.

    Habe versucht den Quellcode zu verstehen, soweit auch Ok,
    nur find ich nicht die Stelle wo der Drucker abgefragt wird (z.b. 10030_Service )

    Habe versucht mit DateiNeu.Writeline(S & "http://") & UCase(DatName) & ("/printers/") den Drucker noch hinzuzufügen

    aber weder
    DateiNeu.Writeline(S & "http://") & UCase(DatName) & ("/printers/") & S & t
    noch
    DateiNeu.Writeline(S & "http://") & UCase(DatName) & ("/printers/") & S & t1
    bringt mir nicht das gewünschte Ergebnis

    10.112.216.12/printers/10030_rech1_1
    sondern nur
    10.112.216.12/printers/Device/URI: socket://10.45.94.173:9100
    oder
    10.112.216.12/printers/Printer/State: idle, accepting jobs.

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „svenac2010“ ()

    … nur find ich nicht die Stelle wo der Drucker abgefragt wird (z.b. 10030_Service )


    Die Stelle findest du:

    Visual Basic-Quellcode

    1. …
    2. Dim Drucker
    3. …
    4. …
    5. …
    7. If LCase( Left(t, 4)) = "desc" Then
    8. DateiNeu.Write(Left(t1, 5) & S & t1 & S & t & S)
    10. Drucker = t1
    12. x = 1
    13. …
    14. …
    15. …


    Wenn du das damit nicht hinkriegst, dann häng' eine Textdatei an.

    Die Datei muss
    1. einen echten Quelldatensatz,
    2, eine echte, komplete Zieldatenzeile,
    3. eine komplette Zieldatenzeile mit deinen gewünschten Änderungen,
    4. Beschreibung wo die Daten für die Änderungen herkommen. (Aus der Quelldatei oder Festtexte?),
    enthalten!

    Deine Teilbeschreibungen hab' ich nicht so richtig verstanden. Wo kommt die z. B. die 10.112.216. 12 her?