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-ID: 51183

Url: https://administrator.de/forum/8stellige-zahl-aus-dok-auslesen-vb6-51183.html

Ausgedruckt am: 23.12.2024 um 03:12 Uhr

Dynadrate
Dynadrate 08.02.2007 um 21:30:14 Uhr
Goto Top
Vielleicht wärs einfacher, wenn du einfach mal ne Probe aus der Textdatei mitpostest!
hexflex
hexflex 08.02.2007 um 21:38:44 Uhr
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
A-J
A-J 08.02.2007 um 22:01:51 Uhr
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
A-J
A-J 08.02.2007 um 22:16:06 Uhr
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
hexflex
hexflex 09.02.2007 um 14:37:53 Uhr
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