großen String in kleinere auflösen!

Übersicht

BlitzBasic

Allgemein

	TOONY Betreff: großen String in kleinere auflösen!	Do, Jul 15, 2004 17:36 Antworten mit Zitat
hallo, ich habe folgendes Problem: Code: [AUSKLAPPEN] [EINKLAPPEN] liste$="daten: 98.78.32.23:6788,87.23.32.12:7865,21.543.56.32:4567" diesen string möchte ich in verschiedene kleinere auflösen, das das ganze dann so aussieht: Code: [AUSKLAPPEN] [EINKLAPPEN] l1$="daten" l2$="98.78.32.23:6788" l3$="87.23.32.12:7865" . . . Hat jemand eine Idee, wie man dies bewerkstelligen könnte?

TOONY

Betreff: großen String in kleinere auflösen!

Do, Jul 15, 2004 17:36
Antworten mit Zitat

hallo,
ich habe folgendes Problem:

Code: [AUSKLAPPEN]

liste$="daten: 98.78.32.23:6788,87.23.32.12:7865,21.543.56.32:4567"

diesen string möchte ich in verschiedene kleinere auflösen,
das das ganze dann so aussieht:
Code: [AUSKLAPPEN]

l1$="daten"
l2$="98.78.32.23:6788"
l3$="87.23.32.12:7865"
.
.
.

Hat jemand eine Idee, wie man dies bewerkstelligen könnte?

	Vertex	Do, Jul 15, 2004 17:57 Antworten mit Zitat
Mit InStr Leerzeichen- und Kommaposition ermitteln, und mit Mid herauskopieren. Das ganze solltest du mit den Befehlen selber hibekommen. mfg olli

Vertex

Do, Jul 15, 2004 17:57
Antworten mit Zitat

Mit InStr Leerzeichen- und Kommaposition ermitteln, und mit Mid herauskopieren. Das ganze solltest du mit den Befehlen selber hibekommen.
mfg olli

	Rallimen Sieger des 30-EUR-Wettbewerbs	Do, Jul 15, 2004 17:58 Antworten mit Zitat
mit len, right, mid, und left, kannste den String passend zerstückeln und mit writeline in eine datei schreiben......
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Do, Jul 15, 2004 17:58
Antworten mit Zitat

mit len, right, mid, und left, kannste den String passend zerstückeln
und mit writeline in eine datei schreiben......

[BB2D | BB3D | BB+]

	d-bug	Do, Jul 15, 2004 18:14 Antworten mit Zitat
oder so... Code: [AUSKLAPPEN] [EINKLAPPEN] Function StringParse$ (source$,item%,sep$=",") For i = 1 To Len(source) tmp$ = Mid(source,i,1) If tmp <> sep out$ = out + tmp Else If p% = item Return out Else p = p + 1 out = "" EndIf EndIf Next Return out End Function

d-bug

Do, Jul 15, 2004 18:14
Antworten mit Zitat

oder so...

Code: [AUSKLAPPEN]

Function StringParse$ (source$,item%,sep$=",")
For i = 1 To Len(source)
tmp$ = Mid(source,i,1)
If tmp <> sep
out$ = out + tmp
Else
If p% = item
Return out
Else
p = p + 1
out = ""
EndIf
EndIf
Next
Return out
End Function

	Travis	Do, Jul 15, 2004 18:25 Antworten mit Zitat
Obwohl die Version von d:bug besser ist, schreibe ich meine trotzdem mal hin: Code: [AUSKLAPPEN] [EINKLAPPEN] Dim IP$(1000) liste$="98.78.32.23:6788,87.23.32.12:7865,21.543.56.32:4567" Anfang = 1 Repeat Ende = Instr(liste$,",",Anfang) Ende = Ende - 1 If Ende = -1 Then Ende = Len(liste$) IP$(i) = Mid(liste$,Anfang,Ende-Anfang+1) If IP$(i) = "" Then Goto ende DebugLog "IP " + i + " Anfang: " + Anfang + " Ende: " + Ende Anfang = Ende+2 i = i + 1 Forever .ende For n = 0 To i Print ip$(n) Next WaitKey End
www.funforge.org Ich hasse WASD-Steuerung. Man kann alles sagen, man muss es nur vernünftig begründen können.

Travis

Do, Jul 15, 2004 18:25
Antworten mit Zitat

Obwohl die Version von d:bug besser ist, schreibe ich meine trotzdem mal hin:

Code: [AUSKLAPPEN]

Dim IP$(1000)
liste$="98.78.32.23:6788,87.23.32.12:7865,21.543.56.32:4567"

Anfang = 1

Repeat
Ende = Instr(liste$,",",Anfang)
Ende = Ende - 1
If Ende = -1 Then Ende = Len(liste$)

IP$(i) = Mid(liste$,Anfang,Ende-Anfang+1)
If IP$(i) = "" Then Goto ende
DebugLog "IP " + i + " Anfang: " + Anfang + " Ende: " + Ende

Anfang = Ende+2
i = i + 1
Forever

.ende
For n = 0 To i
Print ip$(n)
Next

WaitKey
End

www.funforge.org

Ich hasse WASD-Steuerung.

Man kann alles sagen, man muss es nur vernünftig begründen können.