XProfan

Español

Michael
Dell

gRChar$(S,N):
S = Eingabe String
N = Position des Signo (de Rechts)

Ergebnis: Das Nte Signo de Rechts.

gLChar$(S,N):
S = Eingabe String
N = Signo Nummer (de Links)

Ergebnis: Das Nte Signo de Links.

rMid$(S,N1,N2):
S = Eingabe String
N1 = Startposition (de Rechts)
N2 = Anzahl el Signo

Ergebnis: Teilstring (de Rechts después de Links)

Sind N1 y/oder N2 = -1 se el todo String umgekehrt zurückgegeben.

Características (gRLCHar.pinc):
Kompilieren Marca Separación

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 Marca Separación

 $I gRLCHar.pinc
Var Test$ = "ABCDEFGH"
Cls
Imprimir "gRChar$(Test$,2)  = "; gRChar$(Test$,2)
Imprimir
Imprimir "gLChar$(Test$,2)  = "; gLChar$(Test$,2)
Imprimir
Imprimir "rMid$(Test$,2,2)  = "; rMid$(Test$,2,2)
Imprimir
Imprimir "rMid$(Test$,1,9)  = "; rMid$(Test$,1,9)
Imprimir
Imprimir "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 Cita Zeilenweise Cita

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 Cita Zeilenweise Cita

Michael
Dell

Sí, hast bastante Yo tener como de gRChar$() direkt en gLChar$() umgesetzt sin drüber nachzudenken. Habs por Mid$(S,N,1) ersetzt. Dank Usted!

Salu Michael...

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

23.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

... y de XProfan 11 dejar se gRChar$(S,N) y gLChar$(S,N) por Substr$(S,N) y Substr$(S,-N) sustituir o. definieren: Wenn en Substr$ kein Trennzeichen angegeben se, se cada einzelne Signo como Teilstring betrachtet.

Saludo
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 Cita Zeilenweise Cita

Michael
Dell

Klasse Roland, daran Tuve todavía nada pensamiento!

Usted Características para Xprofan11:
Kompilieren Marca Separación

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