Routine zum Zerteilen von Strings!

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

Artemis

Betreff: Routine zum Zerteilen von Strings!

 BeitragDo, März 24, 2005 11:16
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi!!
Hat jemand eine Routine, die einen String der Chr(13) (also Enter) enthält zerteilt und dann ausgibt??
Also so:
BlitzBasic: [AUSKLAPPEN] 

Function printstr(x,y,txt$)
  ;CODE
  ;Jetzt soll der ganze Text um x und y gemittelt werden
  ;CODE
End Function

printstr(100,100,\"HALLO!\"+Chr(13)+\"DUD\")

bruZard

 BeitragDo, März 24, 2005 11:22
Antworten mit Zitat
Benutzer-Profile anzeigen
BlitzBasic: [AUSKLAPPEN] 

Function printstr(x,y,in$)
  While pos=Instr(in$,Chr(13))
    teil$ = Left(in$,pos-1)
    Text x,y,teil$
    y = y + TextHeight(teil$)
    in$ = Right(in$,Len(in$)-Len(teil$))
  Wend
End Function



Nicht getestet, sollte so oder ähnlich funktionieren.
PIV 2,4GHz - 1GB DDR 333 - ATI Radeon9600 - WinXP - DX9.0c - BMax 1.14 - B3D 1.91 - 1280x1024x32

User posted image

Artemis

 BeitragDo, März 24, 2005 11:34
Antworten mit Zitat
Benutzer-Profile anzeigen
cool thx

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group