2
Zeile mehrfach ausgeben
Hallo,
ich habe eine Datei in der Form:
Meldung: blablabla
Rechner: aaa, bbb, ccc
...
Meldung: blublu
...
Rechner: ddd
...
usw.
Zwischen den mich interessierenden Zeilen (mit Rechner:, Meldung: beginnend) stehen noch beliebige Zeilen.
Ich möchte daraus machen:
Meldung: blablabla | aaa
Meldung: blablabla | bbb
Meldung: blablabla | ccc
Meldung: blublu | ddd
Habe mir gedacht, dass folgender Code doch machen sollte, was ich möchte:
Aber leider bekomme ich eine Fehlermeldung bei Text(i) : Typen unverträglich
Wie kann ich aus einer Zeile mehrere machen. Ich weiß aber eben vorher nicht wieviele es sind.
Danke und Gruß
Uppe
ich habe eine Datei in der Form:
Meldung: blablabla
Rechner: aaa, bbb, ccc
...
Meldung: blublu
...
Rechner: ddd
...
usw.
Zwischen den mich interessierenden Zeilen (mit Rechner:, Meldung: beginnend) stehen noch beliebige Zeilen.
Ich möchte daraus machen:
Meldung: blablabla | aaa
Meldung: blablabla | bbb
Meldung: blablabla | ccc
Meldung: blublu | ddd
Habe mir gedacht, dass folgender Code doch machen sollte, was ich möchte:
....
Do While Not nowFile.AtEndOfStream
nowLine = nowFile.readline
If Instr(nowLine, "Meldung:") Then
Text=nowLine
bWrite=true
End If
If bWrite And InStr(nowLine, "Rechner:") Then
Rechner = Split(nowLine," ")
For i = 1 to Ubound(Rechner)
Text(i)=Text & " | " & Rechner(i)
Next i
End If
...
LoopWie kann ich aus einer Zeile mehrere machen. Ich weiß aber eben vorher nicht wieviele es sind.
Danke und Gruß
Uppe
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 153946
Url: https://administrator.de/contentid/153946
Ausgedruckt am: 26.11.2024 um 21:11 Uhr
2 Kommentare
Neuester Kommentar
Hallo Uppe!
"aber die Schleife in Zeile 10 muss bei 0 beginnen [Edit] 1 passt auch - dadurch wird der Text "Rechner:" übersprungen [/Edit]
Außerdem: "Text()" müsste als Array deklariert worden sein (wobei ich mich frage, wozu das Array gut sein soll), und es gibt auch bereits eine einfache Variable "Text" - es könnte hier aber genausogut ein String verwendet werden, etwa:
Wenn tatsächlich später noch ein Array gebraucht wird, ließe sich der "GesamtText" wie folgt zerlegen:
Grüße
bastla
"
Split()" ist schon ok, Außerdem: "Text()" müsste als Array deklariert worden sein (wobei ich mich frage, wozu das Array gut sein soll), und es gibt auch bereits eine einfache Variable "Text" - es könnte hier aber genausogut ein String verwendet werden, etwa:
GesamtText = GesamtText & vbCrLf & Text & " | " & Rechner(i)
TextArray = Split(Mid(GesamtText, 3), vbCrLf)
bastla
Hallo bastla,
das war's. Redim Text(Ubound(Rechner)) und schon passt es.
Danke und Gruß
Uppe
das war's. Redim Text(Ubound(Rechner)) und schon passt es.
Danke und Gruß
Uppe
