string trenner immer noch ein rätzel

Übersicht

BlitzBasic

Beginners-Corner

	Mathias-Kwiatkowski Betreff: string trenner immer noch ein rätzel	Sa, Okt 01, 2005 3:54 Antworten mit Zitat
ich bekomme es nicht hin.... das mit den strings is mir ein rätzel BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Dim tex$(99) in1$=\"<Mathias><EVA><DU><ER><SIE><ES>\" lang=Len(in1$) For c=0 To lang PosA=Instr(in1$,\"<\") PosB=Instr(in1$,\">\") tex$(aw)=Mid$(in1$,c+PosA,c+PosB) oft(1)=aw aw=aw+1 Next das programm soll einfach alles was in < > steht in diesem DIM packen und zwar tex$(1) is dann =Mathias tex$(2) is dann =EVA tex$(3) is dann =DU ... usw aber ich weis nicht wie ich das hinbekomme, vorallem weil dieser string variabel ist damit mein ich das da nochmehr < .. > solcher vorkommen, gibt es den keine rutine die mir das ermöglicht so eine art string trenner der den gesammten string trennt in mehreren=? währe echt cool wenn mir jemand helfen könnte, den mein "prog" is = schrott wie sich schnell heraustellte!!!! ich grübel daran schon die halbe nacht! bitte helft mir!

Mathias-Kwiatkowski

Betreff: string trenner immer noch ein rätzel

Sa, Okt 01, 2005 3:54
Antworten mit Zitat

ich bekomme es nicht hin.... das mit den strings is mir ein rätzel

BlitzBasic: [AUSKLAPPEN]


Dim tex$(99)
in1$=\"<Mathias><EVA><DU><ER><SIE><ES>\"

          lang=Len(in1$)

For c=0 To lang
            PosA=Instr(in1$,\"<\")
            PosB=Instr(in1$,\">\")
      tex$(aw)=Mid$(in1$,c+PosA,c+PosB)
	  oft(1)=aw
      aw=aw+1
Next

das programm soll einfach alles was in < > steht in diesem DIM packen und zwar

tex$(1) is dann =Mathias
tex$(2) is dann =EVA
tex$(3) is dann =DU

... usw

aber ich weis nicht wie ich das hinbekomme, vorallem weil dieser string variabel ist damit mein ich das da nochmehr < .. > solcher vorkommen, gibt es den keine rutine die mir das ermöglicht so eine art string trenner der den gesammten string trennt in mehreren=?

währe echt cool wenn mir jemand helfen könnte, den mein "prog" is = schrott wie sich schnell heraustellte!!!!

ich grübel daran schon die halbe nacht!

bitte helft mir!

	David	Sa, Okt 01, 2005 6:02 Antworten mit Zitat
Hi! BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Dim Container$( 99 ) in$ = \"<Mathias><EVA><DU><ER><SIE><ES>\" length% = Len( in ) pos1% = 0 pos2% = 0 count% = 0 While True pos1 = Instr( in, \"<\", pos1+1 ) pos2 = Instr( in, \">\", pos1+1 ) If ( pos1 <> 0 ) And ( pos2 <> 0 ) Container( count ) = Mid( in, pos1+1, ( pos2-pos1 )-1 ) count = count + 1 Else Exit EndIf Wend grüße

David

Sa, Okt 01, 2005 6:02
Antworten mit Zitat

Hi!

BlitzBasic: [AUSKLAPPEN]


Dim Container$( 99 )

in$ = \"<Mathias><EVA><DU><ER><SIE><ES>\"

length% = Len( in )
pos1%   = 0
pos2%   = 0
count%  = 0

While True 
	pos1 = Instr( in, \"<\", pos1+1 )
	pos2 = Instr( in, \">\", pos1+1 )
	
	If ( pos1 <> 0 ) And ( pos2 <> 0 )
		Container( count ) = Mid( in, pos1+1, ( pos2-pos1 )-1 )
		count = count + 1
	Else
		Exit
	EndIf
Wend

grüße

	Mathias-Kwiatkowski	Sa, Okt 01, 2005 14:47 Antworten mit Zitat
danke

Mathias-Kwiatkowski

Sa, Okt 01, 2005 14:47
Antworten mit Zitat

danke

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

string trenner immer noch ein rätzel

Mathias-Kwiatkowski

Betreff: string trenner immer noch ein rätzel

David

Mathias-Kwiatkowski