XProfan

Français

Michael
Dell

gRChar$(S,N):
S = Eingabe String
N = Position des marque (de à droite)

Ergebnis: cela Nte marque de à droite.

gLChar$(S,N):
S = Eingabe String
N = marque numéro (de à gauche)

Ergebnis: cela Nte marque de à gauche.

rMid$(S,N1,N2):
S = Eingabe String
N1 = Startposition (de à droite)
N2 = Nombre de marque

Ergebnis: Teilstring (de à droite pour à gauche)

sommes N1 et/ou bien N2 = -1 wird qui ganze String renversé retour.

Funktionen (gRLCHar.pinc):
Kompilieren Marque Séparation

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 Marque Séparation

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

Salu Michael...

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

22.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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 citation

Absatzweise Citation Zeilenweise Citation

Michael
Dell

oui, la hâte droite je hab là de gRChar$() direct sur gLChar$() mise en œuvre sans drüber nachzudenken. Tricolore par Milieu$(S,N,1) ersetzt. Dank Dir!

Salu Michael...

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

23.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

... et ab XProfan 11 laisser sich gRChar$(S,N) et gLChar$(S,N) par Substr$(S,N) et Substr$(S,-N) ersetzen bzw. définir: si chez Substr$ ne...aucune Trennzeichen angegeben wird, wird chaque einzelne marque comme Teilstring betrachtet.

Salut
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 citation

Absatzweise Citation Zeilenweise Citation

Michael
Dell

super Roland, daran J'ai eu encore gar pas gedacht!

Dir Funktionen pour Xprofan11:
Kompilieren Marque Séparation

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