txt endlosstring

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: txt endlosstring

15.04.2005 19:43:19

Luc

AW: txt endlosstring

15.04.2005 20:08:34

andre

AW: txt endlosstring

15.04.2005 20:25:53

Ingo Harder

AW: txt endlosstring

15.04.2005 20:52:23

andre

AW: txt endlosstring

16.04.2005 17:10:51

andre

AW: txt endlosstring

15.04.2005 21:00:53

Luc

AW: txt endlosstring

15.04.2005 21:38:29

ingoG

AW: txt endlosstring

15.04.2005 22:30:41

Ingo Harder

Hallo Ingo,
wenn Du das File einliest kannst Du alles in einen String packen und diesen per Schleife aufteilen. Hier mal ein codeschnipsel. die eingelesenen Dateien waren teilweise über 800 KB groß. Wenn Du jedes Zeichen in eine Zelle tun willst kannst Du den String zeichenweise durchgehen. Ich habe immer nach chr(10) gesucht und den String dort geteilt.
...
Do While Not EOF(file_nr) ' Auf Dateiende abfragen.
Line Input #file_nr, EingangsDaten ' Datenzeilen lesen.
' PC-Dateien mit richtigem Zeielenende - unter UNIX alle Zeilen
' in einem String !
For i = 1 To 15000
j = Len(EingangsDaten)
If j = 0 Then i = 15000: GoTo j_null
lmp = InStr(1, EingangsDaten, Chr(10)) 'lmp kann auch eine fester Wert sein
EingangsDatenLinks = Left(EingangsDaten, lmp - 1)
...
EingangsDaten = (Right(EingangsDaten, j - lmp)) 'linken Teil entfernen
j_null:
Next
Loop

Hallo Ingo,
hier mal die Funktion:


Function T2CharVect(ByVal Text As String) As Variant
Rem wandelt Texte in Einzelzeichenvektoren (Feld: 1 Zchn/Zelle) um -
'   (horizontale) Ausgabe in Zellen nur als/in MatrixFormel möglich
'   Vs 1.0 - 2005 - Autor: L.Schuller - Erstpubl: www.herber.de - 20050415
Dim i As Integer, n As Integer, z() As String
n = Len(Text) - 1
ReDim z(n) As String
For i = 0 To n
z(i) = Mid(Text, i + 1, 1)
Next i
T2CharVect = z
End Function

Wenn du die Einzelzeichen in Zeilen ausgeben willst, musst du die Funktionsausgabe mit MTRANS transformieren, also so: {=MTRANS(T2CharVect(textzelle))}
Bei einer Anwendung im Tabellenblatt müssen mindestens so viele Zellen markiert wdn wie der Text Zeichen hat. In der 1.markierten Zelle steht die Formel, die mit {Ctrl}{Shift}{Enter} abgeschlossen wird. Bei Einsatz in Makros muss der von der Funktion erzeugte Vektor übernommen und seine Werte entsprechend verteilt wdn.
Aber wie gesagt, das hilft erst, wenn du den Text irgendwie portioniert hast. Vielleicht über Eingabe mittels Input-Befehl. Hier läuft parallel so ein ähnlicher Thread, an dem ich mich auch beteiligt hatte.
Gruß Luc :-?

Sub aaaa() Dim i% Dim text As String Open "c:\test.txt" For Input As #1 Do While Not EOF(1) ' Auf Dateiende abfragen. Line Input #1, text For i = 1 To Len(text) Cells(i Mod 10000, Int(i / 10000) + 1) = Mid(text, i, 1) Next i Loop Close #1 End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread