StringExt.mod Stringoperationen

Übersicht

BlitzMax, BlitzMax NG

Codearchiv & Module

	Hummelpups Betreff: StringExt.mod Stringoperationen	Di, Nov 15, 2005 12:12 Antworten mit Zitat
Tach, habe heut morgen ein paar Funktionen programmiert, hatte auch noch 2 die ich mal für meine Spiele proggte, die eigentlich ganz nützlich sind. Beschreibungen stehen im Quelltext und hier mal ein Überblick: Code: [AUSKLAPPEN] [EINKLAPPEN] StringExt v0.46 Reverenz GetAfterChar:String(String:String,Needle:String) Gibt den String zurück, der nach einem bestimmten zeichen steht z.B. GetAfterChar("Graphicmode: Hallo",":") gibt "Hallo" zurück. GetPart:String(String:String,Part:Byte[,Cut:String]) Gibt den Teil zurück, der durch Part angegeben, und durch den Cut String getrennt wird. UCFirst:String(String:String) Erster Buchstabe groß UCLast:String(String:String) Letzter Buchstabe groß LCFirst:String(String:String) Erster Buchstabe klein LCLast:String(String:String) Letzter Buchstabe klein UCArea:String(String:String,Point1:Short,Point2:Short) Vergleichbar mit MID, angegebener Bereich wird groß geschrieben LCArea:String(String:String,Point1:Short,Point2:Short) Vergleichbar mit MID, angegebener Bereich wird klein geschrieben StrInvert:String(String:String) Invertiert den angegebenen String Und hier der DL zur Version 0.46 http://www.blitz-pasting.net/i...amp;id=643 IMurDOOM
blucode - webdesign - Ressource - NetzwerkSim BlitzBasic 2D - BlitzMax - MaxGUI - Monkey - BlitzPlus

Hummelpups

Betreff: StringExt.mod Stringoperationen

Di, Nov 15, 2005 12:12
Antworten mit Zitat

Tach,

habe heut morgen ein paar Funktionen programmiert, hatte auch
noch 2 die ich mal für meine Spiele proggte, die eigentlich ganz
nützlich sind. Beschreibungen stehen im Quelltext und hier
mal ein Überblick:

Code: [AUSKLAPPEN]

StringExt v0.46 Reverenz

GetAfterChar:String(String:String,Needle:String)
Gibt den String zurück, der nach einem bestimmten zeichen steht z.B.
GetAfterChar("Graphicmode: Hallo",":") gibt "Hallo" zurück.

GetPart:String(String:String,Part:Byte[,Cut:String])
Gibt den Teil zurück, der durch Part angegeben, und durch den
Cut String getrennt wird.

UCFirst:String(String:String)
Erster Buchstabe groß

UCLast:String(String:String)
Letzter Buchstabe groß

LCFirst:String(String:String)
Erster Buchstabe klein

LCLast:String(String:String)
Letzter Buchstabe klein

UCArea:String(String:String,Point1:Short,Point2:Short)
Vergleichbar mit MID, angegebener Bereich
wird groß geschrieben

LCArea:String(String:String,Point1:Short,Point2:Short)
Vergleichbar mit MID, angegebener Bereich
wird klein geschrieben

StrInvert:String(String:String)
Invertiert den angegebenen String

Und hier der DL zur Version 0.46
http://www.blitz-pasting.net/i...amp;id=643

IMurDOOM

blucode - webdesign - Ressource - NetzwerkSim
BlitzBasic 2D - BlitzMax - MaxGUI - Monkey - BlitzPlus

	m a j o r	Sa, Nov 19, 2005 22:15 Antworten mit Zitat
So was in der Art hab ich auch im Gebrauch. Print gparam("ey alta lol",1) liefert z.B. ey Print gparam("ey:alta:lol",2,asc(":")) liefert alta wenn count=0 dann wird immer der höchste Wert angenommen. z.B. Print gparam("ey alta lol",0) liefert "lol" Code: [AUSKLAPPEN] [EINKLAPPEN] Rem Function gparam() -> 1.Parameter=Der Text -> 2.Parameter=Liefert den count'en Teil, getrennt von dem Trennungszeichen -> 3.Parameter=Trennungszeichen als Asci, standart=Leerzeichen End Rem Function gparam:String(txt:String,count:Short,trenn:Byte=32) Local x:Short Local lastpos:Short Local i:Short For i=0 To txt.length-1 If txt[i]=trenn Then x:+1 If x=count Then Return txt[lastpos..i] lastpos=i+1 End If Next 'If count=1 Then If x<count-1 Then Return Null Return txt[lastpos..i] End Function

m a j o r

Sa, Nov 19, 2005 22:15
Antworten mit Zitat

So was in der Art hab ich auch im Gebrauch.

Print gparam("ey alta lol",1)
liefert z.B. ey
Print gparam("ey:alta:lol",2,asc(":"))
liefert alta
wenn count=0 dann wird immer der höchste Wert angenommen.
z.B.
Print gparam("ey alta lol",0)
liefert "lol"

Code: [AUSKLAPPEN]

Rem
Function gparam()
-> 1.Parameter=Der Text
-> 2.Parameter=Liefert den count'en Teil, getrennt von dem Trennungszeichen
-> 3.Parameter=Trennungszeichen als Asci, standart=Leerzeichen

End Rem

Function gparam:String(txt:String,count:Short,trenn:Byte=32)
   Local x:Short
   Local lastpos:Short
   Local i:Short
   For i=0 To txt.length-1
      If txt[i]=trenn Then
      x:+1
      If x=count Then Return txt[lastpos..i]


      lastpos=i+1
      End If


   Next
   'If count=1 Then
   If x<count-1 Then Return Null

   Return txt[lastpos..i]

End Function