Reverse-Instr

Übersicht

BlitzBasic

Codearchiv

	BtbN Betreff: Reverse-Instr	Sa, Sep 17, 2005 10:53 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function RInstr(stri$,search$,count=0) Local i If Len(search$) = 0 Then Return 0 For i = Len(stri$)-count To 1 Step -1 If Mid(stri$,i,Len(search$)) = search$ Then Return i EndIf Next Return 0 End Function Macht das selbe wie Instr, aber fängt von hinten an zu suchen.

BtbN

Betreff: Reverse-Instr

Sa, Sep 17, 2005 10:53
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

Function RInstr(stri$,search$,count=0)
 Local i
 If Len(search$) = 0 Then Return 0
 For i = Len(stri$)-count To 1 Step -1
  If Mid(stri$,i,Len(search$)) = search$ Then
   Return i
  EndIf
 Next
 Return 0
End Function

Macht das selbe wie Instr, aber fängt von hinten an zu suchen.

Übersicht

BlitzBasic

Codearchiv

Nach Oben

BlitzBasic Portal

Reverse-Instr

BtbN

Betreff: Reverse-Instr