ende des strings auslesen

Übersicht

BlitzBasic

Beginners-Corner

	Goblin Betreff: ende des strings auslesen	Di, Feb 13, 2007 19:21 Antworten mit Zitat
wenn ich diesen string habe: (kein code): "C:\123\456\789" -789 hat unbestimmt viele zeichen, also nicht mit "right" oder so lösbar ; wie kann ich machen dass bb mir den letzten abschnitt ausgibt (789)?

Goblin

Betreff: ende des strings auslesen

Di, Feb 13, 2007 19:21
Antworten mit Zitat

wenn ich diesen string habe:
(kein code): "C:\123\456\789"
-789 hat unbestimmt viele zeichen, also nicht mit "right" oder so lösbar
;
wie kann ich machen dass bb mir den letzten abschnitt ausgibt (789)?

	Marek	Di, Feb 13, 2007 19:31 Antworten mit Zitat
Ganz einfach: Mit Right! Code: [AUSKLAPPEN] [EINKLAPPEN] Function ReturnLastPart$(string$) Zahl=1 Repeat rightstring$=Right$(string$,Zahl) If Left$(rightstring$,1)="\" then Return returnstring$ Else returnstring$=rightstring$ Endif Until Zahl>Len(string$) End Function mfg Marek
Wer lesen kann ist klar im Vorteil...

Marek

Di, Feb 13, 2007 19:31
Antworten mit Zitat

Ganz einfach: Mit Right!
Code: [AUSKLAPPEN]

Function ReturnLastPart$(string$)
Zahl=1
Repeat
rightstring$=Right$(string$,Zahl)
If Left$(rightstring$,1)="\" then
Return returnstring$
Else
returnstring$=rightstring$
Endif
Until Zahl>Len(string$)
End Function

mfg Marek

Wer lesen kann ist klar im Vorteil...

	Goblin Betreff: DANKE	Di, Feb 13, 2007 19:37 Antworten mit Zitat
sorry für die dumme frage aber ich bin nicht gerade der hellste^^ selberschlag wwwwwaaaaaaaaaaaaaaaaaaaaaaa sorry danke ^^

Goblin

Betreff: DANKE

Di, Feb 13, 2007 19:37
Antworten mit Zitat

sorry für die dumme frage aber ich bin nicht gerade der hellste^^
*selberschlag*
wwwwwaaaaaaaaaaaaaaaaaaaaaaa
sorry
danke
^^

	StepTiger	Di, Feb 13, 2007 20:13 Antworten mit Zitat
Also Instr(path$,"\") wäre da ja noch leichter, aber egal. Marek, dein Code funktioniert nicht. Der hängt sich höchstens auf, so wie er da steht.
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter. Computer: AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t Gewinner: BP Code Compo #2 Π=3.141592653589793238...<--- und das aus dem kopf Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

StepTiger

Di, Feb 13, 2007 20:13
Antworten mit Zitat

Also Instr(path$,"\") wäre da ja noch leichter, aber egal.

Marek, dein Code funktioniert nicht. Der hängt sich höchstens auf, so wie er da steht.

Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter.
Computer:
AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t
Gewinner: BP Code Compo #2
Π=3.141592653589793238...<--- und das aus dem kopf Laughing

Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

	Christoph	Mi, Feb 14, 2007 14:52 Antworten mit Zitat
Zitat: Also Instr(path$,"\") wäre da ja noch leichter, aber egal. Da findet er aber soweit ich weiß das erste Vorkommen nicht das letzte. Mein Lösungsvorschlag: 1. Eine For-schleife, die den string von hinten nach vorne Zeichen für Zeichen "abklappert". 2. In der Schleife überprüfst du mit mid(), ob das Zeichen ein "\" ist. Wenn nein, wird das Zeichen in einen zweiten String gespeichert. Und zwar davor: Lastpart$=Mid(tex$, i, 1)+Lastpart$ So in der Art. 3. Falls das Zeichen ein "\" ist, mit exit beenden

Christoph

Mi, Feb 14, 2007 14:52
Antworten mit Zitat

Zitat:

Also Instr(path$,"\") wäre da ja noch leichter, aber egal.

Da findet er aber soweit ich weiß das erste Vorkommen nicht das letzte.

Mein Lösungsvorschlag:
1. Eine For-schleife, die den string von hinten nach vorne Zeichen für Zeichen "abklappert".
2. In der Schleife überprüfst du mit mid(), ob das Zeichen ein "\" ist. Wenn nein, wird das Zeichen in einen zweiten String gespeichert. Und zwar davor:
Lastpart$=Mid(tex$, i, 1)+Lastpart$
So in der Art.
3. Falls das Zeichen ein "\" ist, mit exit beenden

	StepTiger	Mi, Feb 14, 2007 18:17 Antworten mit Zitat
Coder, dafür gibt es Right$ oder den Zusatzparameter. Code: [AUSKLAPPEN] [EINKLAPPEN] Function EndPath$(datei$) While Instr(datei$,"\") datei$=Right$(datei$,Len(datei$)-Instr(datei$,"\")) Wend Return datei$ End Function Weil ich jetzt auch mal einen Code posten möchte.
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter. Computer: AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t Gewinner: BP Code Compo #2 Π=3.141592653589793238...<--- und das aus dem kopf Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

StepTiger

Mi, Feb 14, 2007 18:17
Antworten mit Zitat

Coder, dafür gibt es Right$ oder den Zusatzparameter.

Code: [AUSKLAPPEN]

Function EndPath$(datei$)
While Instr(datei$,"\")
datei$=Right$(datei$,Len(datei$)-Instr(datei$,"\"))
Wend
Return datei$
End Function

Weil ich jetzt auch mal einen Code posten möchte.

Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

	Goblin Betreff: ok	Mi, Feb 14, 2007 18:21 Antworten mit Zitat
danke es klappt jetzt.

Goblin

Betreff: ok

Mi, Feb 14, 2007 18:21
Antworten mit Zitat

danke es klappt jetzt.

	Christoph	Mi, Feb 14, 2007 19:08 Antworten mit Zitat
Na gut, so geht es auch. Zitat: Also Instr(path$,"\") wäre da ja noch leichter, aber egal. Aber aus diesem Beitrag kann man nicht erkennen, dass du eine while schleife anlegst. Da hat es sich eher danach angehört, als würdest du nach dem ersten \ suchen

Christoph

Mi, Feb 14, 2007 19:08
Antworten mit Zitat

Na gut, so geht es auch.

Zitat:

Also Instr(path$,"\") wäre da ja noch leichter, aber egal.

Aber aus diesem Beitrag kann man nicht erkennen, dass du eine while schleife anlegst.

Da hat es sich eher danach angehört, als würdest du nach dem ersten \ suchen

	StepTiger	Mi, Feb 14, 2007 19:19 Antworten mit Zitat
Ich gebe nie die ganze Lösung sondern nur Tips.
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter. Computer: AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t Gewinner: BP Code Compo #2 Π=3.141592653589793238...<--- und das aus dem kopf Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

StepTiger

Mi, Feb 14, 2007 19:19
Antworten mit Zitat

Ich gebe nie die ganze Lösung sondern nur Tips.

Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

ende des strings auslesen

Betreff: ende des strings auslesen

Betreff: DANKE

Betreff: ok