XProfan

Français

Julian
Schmidt

Salut,
je serait volontiers un Zahlenfolge avec Translate umformen. (avec Kommas)
et zwar comment folgt:
0<->5
1<->6
2<->7
3<->8
4<->9

Il convient ne...aucune Buchstaben (Punkt et Komma) umgewandelt volonté, seulement payons!
mon zweiter Ansatz sieht comment folgt aus:

Kompilieren Marque Séparation

declare Ausgelesen$,Ablage$,Ablage2$,GesamterZahlenString$
Ausgelesen$=Contribution$("Bitte donner vous une Zahlenfolge ein","Eingabe","4")

whileloop Len(Ausgelesen$)

    Ablage$=Mid $(Ausgelesen$,&loop,1)
    Ablage2$=Translate$(Ablage$,"0","5")
    Ablage2$=Translate$(Ablage$,"1","6")
    Ablage2$=Translate$(Ablage$,"2","7")
    Ablage2$=Translate$(Ablage$,"3","8")
    Ablage2$=Translate$(Ablage$,"4","9")
    GesamterZahlenString$=GesamterZahlenString$+Ablage2$
    clear ablage2$

Endwhile

MessageBox("Ergebnis: "+GesamterZahlenString$,"INFO",64)

comment bekommt on es os hin cela chaque marque korekt umgeformt wird.

et sich aucun transformation wieder aufhebt (Translate$(Ablage$,"4","9") et après Translate$(Ablage$,"9","4")).

LG

Julian57

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

08.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Nico
Madysa

tu peux d'abord 0->A, 1->B, usw. umformen, ensuite 5->0, 6-1, usw. et zum Schluss A->5, B->6, usw.

Nico Madysa

08.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

bien ensuite sieht qui Code so aus:

Kompilieren Marque Séparation

declare Ausgelesen$,Ablage$,Ablage2$,GesamterZahlenString$
Ausgelesen$=Contribution$("Bitte donner vous une Zahlenfolge ein","Eingabe","4")

whileloop Len(Ausgelesen$)

    Ablage$=Mid $(Ausgelesen$,&loop,1)
    Ablage2$=Ablage2$+Translate$(Ablage$,"0","A")
    Ablage2$=Ablage2$+Translate$(Ablage$,"1","B")
    Ablage2$=Ablage2$+Translate$(Ablage$,"2","C")
    Ablage2$=Ablage2$+Translate$(Ablage$,"3","D")
    Ablage2$=Ablage2$+Translate$(Ablage$,"4","E")
    Ablage2$=Ablage2$+Translate$(Ablage$,"5","A")
    Ablage2$=Ablage2$+Translate$(Ablage$,"6","1")
    Ablage2$=Ablage2$+Translate$(Ablage$,"7","2")
    Ablage2$=Ablage2$+Translate$(Ablage$,"8","3")
    Ablage2$=Ablage2$+Translate$(Ablage$,"9","4")
    Ablage2$=Ablage2$+Translate$(Ablage$,"0","5")
    Ablage2$=Ablage2$+Translate$(Ablage$,"A","5")
    Ablage2$=Ablage2$+Translate$(Ablage$,"B","6")
    Ablage2$=Ablage2$+Translate$(Ablage$,"C","7")
    Ablage2$=Ablage2$+Translate$(Ablage$,"D","8")
    Ablage2$=Ablage2$+Translate$(Ablage$,"E","9")
    GesamterZahlenString$=GesamterZahlenString$+Ablage2$
    clear ablage2$

Endwhile

MessageBox("Ergebnis: "+GesamterZahlenString$,"INFO",64)

seulement comment bekomme je cela funktionsfähig.
Es volonté immernoch falsche Werte ausgegeben, muss je une anderen Variablen-Typ prendre ou bien quoi stimmt là pas?

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

08.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Nico
Madysa

simple überall cela "Ablage2$+" entfernen. cela übersetzte darf pas drangehängt volonté, mais soll cela vieille ersetzen.
eh, et tu as chez "Translate$(Ablage$,"5","A")" toi vertippt.

Nico Madysa

08.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

allez sans "Ablage2$+" genauso wenig

Kompilieren Marque Séparation

declare Ausgelesen$,Ablage$,Ablage2$,GesamterZahlenString$
Ausgelesen$=Contribution$("Bitte donner vous une Zahlenfolge ein","Eingabe","4")

whileloop Len(Ausgelesen$)

    Ablage$=Mid $(Ausgelesen$,&loop,1)
    Ablage2$=Translate$(Ablage$,"0","A")
    Ablage2$=Translate$(Ablage$,"1","B")
    Ablage2$=Translate$(Ablage$,"2","C")
    Ablage2$=Translate$(Ablage$,"3","D")
    Ablage2$=Translate$(Ablage$,"4","E")
    Ablage2$=Translate$(Ablage$,"5","0")
    Ablage2$=Translate$(Ablage$,"6","1")
    Ablage2$=Translate$(Ablage$,"7","2")
    Ablage2$=Translate$(Ablage$,"8","3")
    Ablage2$=Translate$(Ablage$,"9","4")
    Ablage2$=Translate$(Ablage$,"A","5")
    Ablage2$=Translate$(Ablage$,"B","6")
    Ablage2$=Translate$(Ablage$,"C","7")
    Ablage2$=Translate$(Ablage$,"D","8")
    Ablage2$=Translate$(Ablage$,"E","9")
    GesamterZahlenString$=GesamterZahlenString$+Ablage2$
    clear ablage2$

Endwhile

MessageBox("Ergebnis: "+GesamterZahlenString$,"INFO",64)

Nico Madysa (08.04.11)

eh, et tu as chez "Translate$(Ablage$,"5","A")" toi vertippt.

merci pour den Hinweis

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

08.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

tu mets oui De toute façon wieder qui Originalzeichenfolge comme la base un.

Ab "B" dois Du Ablage2$=Translate$(Ablage2$,"1","B") verwenden.

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

08.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Über une IF-Bedingungen bekomme je es hin.

Kompilieren Marque Séparation

declare Ausgelesen$,Ablage$,Ablage2$,GesamterZahlenString$
Ausgelesen$=Contribution$("Bitte donner vous une Zahlenfolge ein","Eingabe","4")

whileloop Len(Ausgelesen$)

    Ablage$=Mid $(Ausgelesen$,&loop,1)

    si Ablage$=0

        Ablage$=5

    elseif Ablage$=1

        Ablage$=6

    elseif Ablage$=2

        Ablage$=7

    elseif Ablage$=3

        Ablage$=8

    elseif Ablage$=4

        Ablage$=9

    elseif Ablage$=5

        Ablage$=0

    elseif Ablage$=6

        Ablage$=1

    elseif Ablage$=7

        Ablage$=2

    elseif Ablage$=8

        Ablage$=3

    elseif Ablage$=9

        Ablage$=4

    Endif

    GesamterZahlenString$=GesamterZahlenString$+Ablage$
    clear ablage2$

Endwhile

MessageBox("Ergebnis: "+GesamterZahlenString$,"INFO",64)

allez le reste einfacher,eleganter lösen?

08.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

j'ai cela ganze maintenant la fois sur cela Alphabet übertragen.
Es wird chacun Buchstabe um 13 Buchstaben im Alphapet fou.

Kompilieren Marque Séparation

declare Ausgelesen$,Ablage$,Ablage2$,clé$
Ausgelesen$=Contribution$("Bitte donner vous une Text ein","Eingabe","Mein Text")

whileloop Len(Ausgelesen$)

    Ablage$=Mid $(Ausgelesen$,&loop,1)
    Ablage2$=Translate$(Ablage$,"A","1")
    Ablage2$=Translate$(Ablage2$,"B","2")
    Ablage2$=Translate$(Ablage2$,"C","3")
    Ablage2$=Translate$(Ablage2$,"D","4")
    Ablage2$=Translate$(Ablage2$,"E","5")
    Ablage2$=Translate$(Ablage2$,"F","6")
    Ablage2$=Translate$(Ablage2$,"G","7")
    Ablage2$=Translate$(Ablage2$,"H","8")
    Ablage2$=Translate$(Ablage2$,"I","9")
    Ablage2$=Translate$(Ablage2$,"J","0")
    Ablage2$=Translate$(Ablage2$,"K","?")
    Ablage2$=Translate$(Ablage2$,"L","!")
    Ablage2$=Translate$(Ablage2$,"M","_")
    Ablage2$=Translate$(Ablage2$,"N","A")
    Ablage2$=Translate$(Ablage2$,"O","B")
    Ablage2$=Translate$(Ablage2$,"P","C")
    Ablage2$=Translate$(Ablage2$,"Q","D")
    Ablage2$=Translate$(Ablage2$,"R","E")
    Ablage2$=Translate$(Ablage2$,"S","F")
    Ablage2$=Translate$(Ablage2$,"T","G")
    Ablage2$=Translate$(Ablage2$,"U","H")
    Ablage2$=Translate$(Ablage2$,"V","I")
    Ablage2$=Translate$(Ablage2$,"W","J")
    Ablage2$=Translate$(Ablage2$,"X","K")
    Ablage2$=Translate$(Ablage2$,"Y","L")
    Ablage2$=Translate$(Ablage2$,"Z","M")
    Ablage2$=Translate$(Ablage2$,"1","N")
    Ablage2$=Translate$(Ablage2$,"2","O")
    Ablage2$=Translate$(Ablage2$,"3","P")
    Ablage2$=Translate$(Ablage2$,"4","Q")
    Ablage2$=Translate$(Ablage2$,"5","R")
    Ablage2$=Translate$(Ablage2$,"6","S")
    Ablage2$=Translate$(Ablage2$,"7","T")
    Ablage2$=Translate$(Ablage2$,"8","U")
    Ablage2$=Translate$(Ablage2$,"9","V")
    Ablage2$=Translate$(Ablage2$,"0","W")
    Ablage2$=Translate$(Ablage2$,"?","X")
    Ablage2$=Translate$(Ablage2$,"!","Y")
    Ablage2$=Translate$(Ablage2$,"_","Z")
    Ablage2$=Translate$(Ablage2$,"a","1")
    Ablage2$=Translate$(Ablage2$,"b","2")
    Ablage2$=Translate$(Ablage2$,"c","3")
    Ablage2$=Translate$(Ablage2$,"d","4")
    Ablage2$=Translate$(Ablage2$,"e","5")
    Ablage2$=Translate$(Ablage2$,"f","6")
    Ablage2$=Translate$(Ablage2$,"g","7")
    Ablage2$=Translate$(Ablage2$,"h","8")
    Ablage2$=Translate$(Ablage2$,"i","9")
    Ablage2$=Translate$(Ablage2$,"j","0")
    Ablage2$=Translate$(Ablage2$,"k","?")
    Ablage2$=Translate$(Ablage2$,"l","!")
    Ablage2$=Translate$(Ablage2$,"m","_")
    Ablage2$=Translate$(Ablage2$,"n","a")
    Ablage2$=Translate$(Ablage2$,"o","b")
    Ablage2$=Translate$(Ablage2$,"p","c")
    Ablage2$=Translate$(Ablage2$,"q","d")
    Ablage2$=Translate$(Ablage2$,"r","e")
    Ablage2$=Translate$(Ablage2$,"s","f")
    Ablage2$=Translate$(Ablage2$,"t","g")
    Ablage2$=Translate$(Ablage2$,"u","h")
    Ablage2$=Translate$(Ablage2$,"v","i")
    Ablage2$=Translate$(Ablage2$,"w","j")
    Ablage2$=Translate$(Ablage2$,"x","k")
    Ablage2$=Translate$(Ablage2$,"y","l")
    Ablage2$=Translate$(Ablage2$,"z","m")
    Ablage2$=Translate$(Ablage2$,"1","n")
    Ablage2$=Translate$(Ablage2$,"2","o")
    Ablage2$=Translate$(Ablage2$,"3","p")
    Ablage2$=Translate$(Ablage2$,"4","q")
    Ablage2$=Translate$(Ablage2$,"5","r")
    Ablage2$=Translate$(Ablage2$,"6","s")
    Ablage2$=Translate$(Ablage2$,"7","t")
    Ablage2$=Translate$(Ablage2$,"8","u")
    Ablage2$=Translate$(Ablage2$,"9","v")
    Ablage2$=Translate$(Ablage2$,"0","w")
    Ablage2$=Translate$(Ablage2$,"?","x")
    Ablage2$=Translate$(Ablage2$,"!","y")
    Ablage2$=Translate$(Ablage2$,"_","z")
    Key$=Key$+Ablage2$
    clear ablage2$

Endwhile

MessageBox("Ergebnis: "+Key$,"INFO",64)

comment peux on cet travail aud wenige Zeilen übertragen?

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

08.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

>> peux on so une travail dans wenige Zeilen saisir?

whileloop chr$(daLoop)

08.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Unbenannt (08.04.11)

>> peux on so une travail dans wenige Zeilen saisir?

seulement comme Anregung

Kompilieren Marque Séparation

cls
Var Text$ = "1234567890ßABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Var Ergebnis$ = »

Whileloop 1,Len(Text$)

    Ergebnis$ = Ergebnis$ + CHR$(Ord(Mid $(Text$,&loop,1))+13)

Endwhile

Imprimer Ergebnis$
'et zurück
Text$ = »

Whileloop 1,Len(Ergebnis$)

    Text$ = Text$ + CHR$(Ord(Mid $(Ergebnis$,&loop,1))-13)

Endwhile

Imprimer Text$
Waitinput

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

09.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

Ah oui,
cela sieht bien aus

seulement venons chez manchen Buchstaben Sonderzeichen heraus.

LG

Julian57

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

09.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

était aussi seulement comme Anregung gedacht.

ici ist encore une.
tu peux Dir oui une bzw. deux Ersatztabellen faire et qui Boucle courir laisser.

Kompilieren Marque Séparation

CLS
Var ZuErsetzen$ = "ABCDEFGHIJ"
'wird ersetzt par
Var Ersatz$     = "1234567890"
Var Pos& = 0
Var Ergebnis$ = »
Var Test$ = "ABER HALLO"

Whileloop 1,Len(Test$)

    Pos& = Instr(Mid $(Test$,&loop,1),ZuErsetzen$)

    Si Pos&

        Ergebnis$ = Ergebnis$ + Mid $(Ersatz$,Pos&,1)

    D'autre

        Ergebnis$ = Ergebnis$ + Mid $(Test$,&Boucle,1)

    Endif

Endwhile

Imprimer Ergebnis$
waitinput