Instr mit Platzhalter

Übersicht

BlitzBasic

Codearchiv

	Christoph Betreff: Instr mit Platzhalter	So, Nov 19, 2006 15:32 Antworten mit Zitat
Pos=Str_exists(wort$,s$[,start][,platzhalter$]) Beschreibung: Diese Funktion durchsucht den ersten Text nach einem String. Wird exakt der selbe String im Text gefunden, so wird die Zeichenposition zurückgeliefert. Es kann auch die Startposition angegeben werden. Außerdem kann ein Platzhalter bestimmt werden, der genau ein anderes Zeichen ersetzt. Diesen "Platzhalterstring" kann man über den optionalen 4. Parameter festlegen [Standart="?"] Parameter: wort$= Text, der durchsucht werden soll s$= Text, nach dem gesucht werden soll [start]= Startposition der Textsuche [Standart=1] [platzhalter$]= Zeichen, das ein beliebig anderes Zeichen ersetzen kann [Standart="?"] Rückgabewert: Es wird die Zeichenposition des ersten Vorkommens zurückgegeben. Wurde in dem Text keine Übereinstimmung gefunden, so wird eine Null zurückgeliefert. Code: Code: [AUSKLAPPEN] [EINKLAPPEN] Function Str_exists(wort$,s$,start=1,platzhalter$="?") l1=len(wort$) l2=len(s$) For i=start To l1-(l2-1) passt=i For j=i To i+(l2-1) a$=Mid(wort$,j,1) b$=mid(s$,j-i+1,1) If b$<>platzhalter$ And a$<>b$ Then passt=0 Next If passt<>0 Then Return passt Next Return false End function

Christoph

Betreff: Instr mit Platzhalter

So, Nov 19, 2006 15:32
Antworten mit Zitat

Pos=Str_exists(wort$,s$[,start][,platzhalter$])

Beschreibung:

Diese Funktion durchsucht den ersten Text nach einem String. Wird exakt der selbe String im Text gefunden, so wird die Zeichenposition zurückgeliefert. Es kann auch die Startposition angegeben werden.
Außerdem kann ein Platzhalter bestimmt werden, der genau ein anderes Zeichen ersetzt. Diesen "Platzhalterstring" kann man über den optionalen 4. Parameter festlegen [Standart="?"]

Parameter:

wort$= Text, der durchsucht werden soll
s$= Text, nach dem gesucht werden soll
[start]= Startposition der Textsuche [Standart=1]
[platzhalter$]= Zeichen, das ein beliebig anderes Zeichen ersetzen kann [Standart="?"]

Rückgabewert:

Es wird die Zeichenposition des ersten Vorkommens zurückgegeben. Wurde in dem Text keine Übereinstimmung gefunden, so wird eine Null zurückgeliefert.

Code:

Code: [AUSKLAPPEN]

Function Str_exists(wort$,s$,start=1,platzhalter$="?")
l1=len(wort$)
l2=len(s$)
For i=start To l1-(l2-1)
   passt=i
   For j=i To i+(l2-1)
      a$=Mid(wort$,j,1)
      b$=mid(s$,j-i+1,1)
      If b$<>platzhalter$ And a$<>b$ Then passt=0
   Next
   If passt<>0 Then Return passt
Next
Return false
End function