Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

wert aus textfile mit lineinput

wert aus textfile mit lineinput
11.06.2004 09:58:16
chris
Hallo VBAler,
habe ein Problem und zwar möchte ich gerne etwas aus einer textfile auslesen.
Mit
Line Input #1, InputData
kann ich aber nur Zeilenweiße auslesen und den wert in die Variable "Inputdata" schreiben ich möchte aber gerne Zeichenweiße auslesen.Ist das Möglich ? Wenn ja wie?
Vielen Dank für eure Hilfe Chris

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wert aus textfile mit lineinput
Veit
Moin Moin,
wäre es vielleicht ein Ansatz wenn Du dann die Variable die die Zeile enthält zeichenweise durchsuchst. So in der Art von:
Zähler=0
for i=1 to len(zeilenvariable)
if mid(zeilenvariable,i,1)="G" then Zähler=Zähler+1
next i
Msgbox "Es wurden " & Zähler & " G-s gefunden."
Gruß
Ein Veit
AW: wert aus textfile mit lineinput
11.06.2004 14:49:50
chris
Danke für den Tipp aber das hab ich auch selbst schon hinbekommen.Meinte wirklich zeichenweiße aus der Textdatei auslesen.Naja macht nix Danke !!!!!
AW: wert aus textfile mit lineinput
11.06.2004 14:49:59
chris
Danke für den Tipp aber das hab ich auch selbst schon hinbekommen.Meinte wirklich zeichenweiße aus der Textdatei auslesen.Naja macht nix Danke !!!!!
Anzeige
AW: wert aus textfile mit lineinput
Reinhard
Hi Chris,

Sub test()
Close
Dim a As Byte
Open "c:\temp\graphics.txt" For Binary As #1
For n = 1 To LOF(1)
Get #1, n, a
MsgBox Chr(a)
Next n
Close #1
End Sub

Gruß
Reinhard
AW: wert aus textfile mit lineinput
Reinhard
Hi Chris,
wahrscheinlich schneller wenn du mehrere Zeichen nacheinander brauchst:

Sub test()
Dim Nr As Integer
Dim Alles As String
Nr = FreeFile
Open "c:\temp\graphics.txt" For Binary As Nr
Alles = Space$(LOF(Nr))
Get #Nr, , Alles
Close #Nr
For n = 1 To 10
MsgBox Mid(Alles, n, 1)
Next n
End Sub

Gruß
Reinhard
Anzeige
AW: wert aus textfile mit linechris binput
12.06.2004 02:42:44
chris
Genau das wars !!!!!!!!! Vielen Dank und nice WE cuu Chris
Danke, dir auch :-) o.w.T..
Reinhard
.
AW: eine frage doch noch
12.06.2004 16:49:26
chris
Hallo Reinhard, eine frage hätte ich noch diesbezüglich und zwar, ist es möglich auch Zeilenumbrüche zu erkennen, jetzt z.B ist die msgbox leer bei einem ENTER oder Leerzeichen oder Tab usw.. ist es möglich dies auch in die msgbox zu bringen also z.B
chr(32) oder so je nachdem was gerade in der textfile ist ? Danke noch mal Chris
AW: eine frage doch noch
Oberschlumpf
Hi Chris
Bau in die For-Next-Schleife diese If-Bedingung(en) ein:
For n = 1 To 10
If Asc(n) = 13 Then MsgBox "Enter-Taste"
If Asc(n) = 32 Then MsgBox "Leerzeichen"
'usw.
MsgBox Mid(Alles, n, 1)
Next n
Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: eine frage doch noch
13.06.2004 11:54:08
chris
Nicht ganz aber danke für den guten ansatz !!!!!!!

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige