XProfan

Français

Jörg
Sellmeyer

comment peux je sûrement qui Position des ermitteln, cela den Kommentar einleitet?
une la ligne ist z.B.:
Kompilieren Marque Séparation

Test$ = "test" + Test1$ + " hier" + Str(4 * 3) + "so"  Test$ = "test" + Test2$ + " da " + Str(4 * 3) + " auch" mal sehen

aucun Gedanken sur qui Sinnhaftigkeit des Codes; et unordentlicher Stil ist es aussi - doit mais quand même erkannt volonté.

Salut
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

12.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Schritt une ist cela Entfernen qui Cordes et ersetzen dans un Spezialphrase.

exposition mon Codeanzeige ici pouvoir es ebenso - et es funktioniert oui.

Z.B. wird aus String 1 (dans o.G. le cas) °[1]°, et String 2 °[2]°. ensuite cherches Du simple pour et schneidest ab. Anschliessend musst Du seulement °[1]° et °[2]° wieder zurücktranslaten et fertig.

12.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

So ähnlich habe ego mir déjà gedacht mais aufs Ersetzen suis je pas gekommen

merci!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

12.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

je nutze là cela (wohl langsamere) SUCHET, SO WERDET IHR GEFUNDEN
Kompilieren Marque Séparation

Proc Search_Comment

    Null bedeutet: nicht gefunden, sonst Position im String
    Parameters Suchtext$
    Declare i&, c%, intxt%, Buf#, L&, Ergebnis&
    Ergebnis& = -1
    L& = Len(Suchtext$)
    Dim Buf#, L& + 1
    String Buf#,0 = Suchtext$

    WhileLoop 0,L& - 1

        c% = Byte(Buf#,&Loop)
        Case c% = 34 : intxt% = not(intxt%) Anführungszeichen

        If (c% = 39) and (intxt% = 0) Kommentarzeichen (und nicht im String)

            Ergebnis& = &loop
            BREAK

        EndIf

    EndWhile

    Dispose Buf#
    Ergebnis& = Ergebnis& + 1
    Return Ergebnis&

EndProc

Declare TestString$, erg&
TestString$ = "Test$ = qtestq + Test1$ + q hierq + Str(4 * 3) + qsoqTest$ = qtestq + Test2$ + q da q + Str(4 * 3) + q auchq mal sehen"
cls
print "Das Ergebnis sollte 56 sein."
erg& = Search_Comment( TestString$ )

if erg& = 0

    print "Kein Kommentarzeichen gefunden."

else

    print "Kommentarzeichen gefunden an Position", Format$("##0",erg&)
    print " "
    print Space$(erg& - 1) + "v"
    print TestString$
    print Space$(erg& - 1) + "^"

endif

print " "
waitkey
../../funcion-referencias/XProfan/end/'>end