hexflex
Goto Top

8stellige Zahl aus dok auslesen VB6

Hallo,

Ich stehe vor einem scheinbar unlösbaren problem.
Ich habe eine text datei in der zwichen verschiedenen buchstaben-zahlen-nummern
immer mal eine 9 steligew nummmer steht. nun wie kan ich diese nummer auslesen?

Die datei einlesen und in variable spechern ist kein priblem aber danach komme ich nicht weiter . . .

Content-Key: 51183

Url: https://administrator.de/contentid/51183

Printed on: April 19, 2024 at 08:04 o'clock

Member: Dynadrate
Dynadrate Feb 08, 2007 at 20:30:14 (UTC)
Goto Top
Vielleicht wärs einfacher, wenn du einfach mal ne Probe aus der Textdatei mitpostest!
Member: hexflex
hexflex Feb 08, 2007 at 20:38:44 (UTC)
Goto Top
ok die siet ungefähr so aus


È tomas… 304326871  
m freddyŸâj 2423552234  
m Clù@?Ñ2 194434424  
m mannyE? 322544638  
m ClËÕ?ÿ¾ì 324234234  
m C”`ä?€ 208432684 
m C”`î?€ 243456925  
m C”a%?€ 423333425 
m C”b¼?€ 24243261

anna€ 129534341



so da sind dann immer zahlen (9 stellig ) die brauch ich
und dann noch (evtl) wenns geht steht vor der zahl n name
perfekt wär wen ich in dem schema ne ausgabe hätte:

Name = Nummer

ohne die ganzen anderen zeichen
Member: A-J
A-J Feb 08, 2007 at 21:01:51 (UTC)
Goto Top
Hallo hexflex,

das Muster zeigt, dass dein Problem vielleicht größer, zumindest aber anders ist, als du glaubst:

Die meisten Zahlenreihen haben tatsächlich 9 Ziffern, aber in dem Beispiel sind auch Muster mit acht oder zehn Ziffern.
Ansonsten sehe ich hier nur eine Gemeinsamkeit und das ist das Leerfeld vor und hinter den Ziffernblöcken.
Vorschlag:
Suche das Leerzeichen und prüfe, ob anschliessend Zahlen folgen. Wenn es mehr als sieben Zahlen waren, als du auf das nächste Leerzeichen triffst, dann sollte das die gesuchte Ziffernfolge sein...


Gruß A-J
Member: A-J
A-J Feb 08, 2007 at 21:16:06 (UTC)
Goto Top
Guck dir doch mal diesen Tipp hier an.

http://www.activevb.de/tipps/vb6tipps/tipp0324.html

Wenn du ihn ein wenig änderst, löst das dein Problem, denke ich.


Gruß A-J
Member: hexflex
hexflex Feb 09, 2007 at 13:37:53 (UTC)
Goto Top
lso ich lese die datei bisjetzt so ein:

Private Sub Command1_Click()
Dim dateiin As String
dateiin = datei.Text
Open dateiin For Input As #1
Input #1, texxt
For Each Space In texxt
End Sub


nur 1: weis ich nicht wie ich prüfen kann ob 1 ein leerzeichen und danach 7 zahlen kommen
2: Es liest nur die erste zeile ein wie kan ich dandach die 2 einlesen usw??

Mfg