AT() 3 Parameter unter Clipper ? [erledigt]

Moderator: Moderatoren

Antworten
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

AT() 3 Parameter unter Clipper ? [erledigt]

Beitrag von AUGE_OHR »

hi,

alle xBase Dialekte sind Cl*pper kompatible ... aber einige können "mehr"

Code: Alles auswählen

At( <cSubString>, <cString>, [<nStartPos>] ) --> nPosition 
Xbase++ hat optional als 3rd Parameter <nStartPos> was andere nicht haben wo dann dieser Code nicht funktioniert

Code: Alles auswählen

FUNCTION Countat( cString, cSign )
LOCAL nRet  := 0
LOCAL nPosi := 1
LOCAL nMax  := LEN( cString )

   DO WHILE nPosi > 0
      nPosi := AT( cSign, cString, nPosi + 1 )
      IF nPosi > 0
         nRet ++
      ELSE
         EXIT
      ENDIF
   ENDDO
RETURN nRet
Frage : wie macht man es mit 2 Parameter unter Cl*pper :?:

p.s. ich möchte NICHT den Code ändern sondern eine "andere" Function AT() schreiben die Cl*pper kompatible sein muss.
Zuletzt geändert von AUGE_OHR am Mi, 23. Okt 2019 8:26, insgesamt 1-mal geändert.
gruss by OHR
Jimmy
Benutzeravatar
Koverhage
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2470
Registriert: Fr, 23. Dez 2005 8:00
Wohnort: Aalen
Hat sich bedankt: 102 Mal
Danksagung erhalten: 3 Mal
Kontaktdaten:

Re: AT() 3 Parameter unter Clipper ?

Beitrag von Koverhage »

Warum nicht einfach
AT(cSign,substr(cString,nStartpos)
Gruß
Klaus
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: AT() 3 Parameter unter Clipper ?

Beitrag von AUGE_OHR »

Koverhage hat geschrieben: Mi, 23. Okt 2019 7:12 Warum nicht einfach
AT(cSign,substr(cString,nStartpos)
=D>
genau so was hab ich gesucht DANKE
gruss by OHR
Jimmy
Benutzeravatar
Tom
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 9345
Registriert: Do, 22. Sep 2005 23:11
Wohnort: Berlin
Hat sich bedankt: 100 Mal
Danksagung erhalten: 359 Mal
Kontaktdaten:

Re: AT() 3 Parameter unter Clipper ? [erledigt]

Beitrag von Tom »

Der Rückgabewert muss dann aber noch um nStartPos erhöht werden, gell.
Herzlich,
Tom
Antworten