XProfan

Italia

Michael
Dell

gRChar$(S,N):
S = Eingabe String
N = Position des Zeichen (von Rechts)

Ergebnis: Das Nte Zeichen von Rechts.

gLChar$(S,N):
S = Eingabe String
N = Zeichen Nummer (von Links)

Ergebnis: Das Nte Zeichen von Links.

rMid$(S,N1,N2):
S = Eingabe String
N1 = Startposition (von Rechts)
N2 = Anzahl der Zeichen

Ergebnis: Teilstring (von Rechts nach Links)

Sind N1 und/oder N2 = -1 wird der ganze String umgekehrt zurückgegeben.

Funktionen (gRLCHar.pinc):
Kompilieren Markieren Separieren

Def gRChar$(2) Left$(Right$($(1),&(2)),1)
Def gLChar$(2) Mid$($(1),&(2),1)

Proc rMid$

    Parameters rM_In1$,rM_In2&,rM_In3&

    If ((rM_In2& = -1) | (rM_In3& = -1)): rM_In2& = 1: rM_In3& = Len(rM_In1$): EndIf

        Case ((Len(rM_In1$) < 1) | (rM_In2& < 1) | (rM_In3& < 1) | (rM_In2& > Len(rM_In1$)) |
        (rM_In3& > (Len(rM_In1$) - (rM_In2& - 1)))): Return -1  Eingabe Fehler
        Declare rM_Out$

        WhileLoop rM_In2&,((rM_In2& - 1) + rM_In3&)

            rM_Out$ = (rM_Out$ + Left$(Right$(rM_In1$,&Loop),1))

        EndWhile

        Return rM_Out$

    EndProc

Demo:
Kompilieren Markieren Separieren

 $I gRLCHar.pinc
Var Test$ = "ABCDEFGH"
Cls
Print "gRChar$(Test$,2)  = "; gRChar$(Test$,2)
Print
Print "gLChar$(Test$,2)  = "; gLChar$(Test$,2)
Print
Print "rMid$(Test$,2,2)  = "; rMid$(Test$,2,2)
Print
Print "rMid$(Test$,1,9)  = "; rMid$(Test$,1,9)
Print
Print "rMid$(Test$,-1,0) = "; rMid$(Test$,-1,0)
WaitInput
End

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

22.07.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jac
de
Lad

gLChar$=Mid$ ???

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

22.07.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Dell

Ja, hast recht ich hab da von gRChar$() direkt auf gLChar$() umgesetzt ohne drüber nachzudenken. Habs durch Mid$(S,N,1) ersetzt. Dank Dir!

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

23.07.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

... und ab XProfan 11 lassen sich gRChar$(S,N) und gLChar$(S,N) durch SubStr$(S,N) und SubStr$(S,-N) ersetzen bzw. definieren: Wenn bei SubStr$ kein Trennzeichen angegeben wird, wird jedes einzelne Zeichen als Teilstring betrachtet.

Saluto
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

23.07.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Dell

Klasse Roland, daran hatte ich noch gar nicht gedacht!

Dir Funktionen per Xprofan11:
Kompilieren Markieren Separieren

Def gRChar$(2) SubStr$($(1),(&(2) - (&(2) * 2)))
Def glChar$(2) SubStr$($(1),&(2))

Proc rMid$

    Parameters rM_In1$,rM_In2&,rM_In3&

    If ((rM_In2& = -1) | (rM_In3& = -1)): rM_In2& = 1: rM_In3& = Len(rM_In1$): EndIf

        Case ((Len(rM_In1$) < 1) | (rM_In2& < 1) | (rM_In3& < 1) | (rM_In2& > Len(rM_In1$)) |
        (rM_In3& > (Len(rM_In1$) - (rM_In2& - 1)))): Return -1  Eingabe Fehler
        Declare rM_Out$

        WhileLoop rM_In2&,((rM_In2& - 1) + rM_In3&)

            rM_Out$ = (rM_Out$ + SubStr$(rM_In1$,(&Loop - (&Loop * 2))))

        EndWhile

        Return rM_Out$

    EndProc