(507)  Registro

Español
Foro

Pagar Konvertieren

 

Julian
Schmidt
¡Hola,
Yo sería gerne una Zahlenfolge con Translate umformen. (Mit Kommas)
Und zwar como folgt:
0<->5
1<->6
2<->7
3<->8
4<->9

Lo debería kein Buchstaben (Punkt y Komma) umgewandelt voluntad, sólo Pagar!
Mein zweiter Ansatz sieht como folgt de:
KompilierenMarcaSeparación
declarar Ausgelesen$,Ablage$,Ablage2$,GesamterZahlenString$
Ausgelesen$=Entrada$("Bitte geben ellos una Zahlenfolge ein","Eingabe","4")

whileloop Len(Ausgelesen$)

    Ablage$=Mid$(Ausgelesen$,&bucle,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)

Como bekommt uno lo os hin el cada Signo korekt umgeformt se.

Und se no Umformung otra vez aufhebt (Translate$(Ablage$,"4","9") y danach Translate$(Ablage$,"9","4")).

LG

Julian57
 
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
08.04.2011  ▲
 




Nico
Madysa
Usted puede zuerst 0->A, 1->B, usw. umformen, entonces 5->0, 6-1, usw. y para Schluss A->5, B->6, usw.
 
Nico Madysa
08.04.2011  ▲
 




Julian
Schmidt
Gut entonces sieht el Code así de:
KompilierenMarcaSeparación
declarar Ausgelesen$,Ablage$,Ablage2$,GesamterZahlenString$
Ausgelesen$=Entrada$("Bitte geben ellos una Zahlenfolge ein","Eingabe","4")

whileloop Len(Ausgelesen$)

    Ablage$=Mid$(Ausgelesen$,&bucle,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)

Nur como bekomme Yo el funktionsfähig.
Lo voluntad immernoch falsche Werte ausgegeben, muss Soy un otro Variables-Typ nehmen oder qué stimmt como no?
 
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
08.04.2011  ▲
 




Nico
Madysa
Einfach überall el "Ablage2$+" entfernen. Das übersetzte darf no drangehängt voluntad, pero se el alte sustituir.
Oh, y du hast en "Translate$(Ablage$,"5","A")" dich vertippt.
 
Nico Madysa
08.04.2011  ▲
 




Julian
Schmidt
Geht sin "Ablage2$+" genauso wenig
KompilierenMarcaSeparación
declarar Ausgelesen$,Ablage$,Ablage2$,GesamterZahlenString$
Ausgelesen$=Entrada$("Bitte geben ellos una Zahlenfolge ein","Eingabe","4")

whileloop Len(Ausgelesen$)

    Ablage$=Mid$(Ausgelesen$,&bucle,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)
Oh, y du hast en "Translate$(Ablage$,"5","A")" dich vertippt.


Gracias para el Referencia
 
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
08.04.2011  ▲
 




Jörg
Sellmeyer
Usted setzt en efecto siempre otra vez el Originalzeichenfolge como Base una.

Ab "B" mußt Usted Ablage2$=Translate$(Ablage2$,"1","B") uso.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
08.04.2011  ▲
 



Über una IF-Bedingungen bekomme Yo hin.
KompilierenMarcaSeparación
declarar Ausgelesen$,Ablage$,Ablage2$,GesamterZahlenString$
Ausgelesen$=Entrada$("Bitte geben ellos una Zahlenfolge ein","Eingabe","4")

whileloop Len(Ausgelesen$)

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

    if 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)

Geht el todavía einfacher,eleganter lösen?
 
08.04.2011  ▲
 




Julian
Schmidt
Yo habe todos ahora veces el Alphabet übertragen.
Lo se cada Buchstabe en 13 Buchstaben en el Alphapet verrückt.
KompilierenMarcaSeparación
declarar Ausgelesen$,Ablage$,Ablage2$,key$
Ausgelesen$=Entrada$("Bitte geben ellos una Texto ein","Eingabe","Mein Text")

whileloop Len(Ausgelesen$)

    Ablage$=Mid$(Ausgelesen$,&bucle,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)

¿Cómo se puede uno esta Arbeit aud wenige Zeilen übertragen?
 
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
08.04.2011  ▲
 



>> Kann uno así una Arbeit en wenige Zeilen fassen?

whileloop chr$(daLoop)
 
08.04.2011  ▲
 




Andreas
Miethe

Unbenannt (08.04.11)
>> Kann uno así una Arbeit en wenige Zeilen fassen?


Nur como Anregung
KompilierenMarcaSeparación
cls
Var Texto$ = "1234567890ßABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Var Ergebnis$ = ""

Whileloop 1,Len(Texto$)

    Ergebnis$ = Ergebnis$ + CHR$(Ord(Mid$(Texto$,&bucle,1))+13)

Endwhile

Imprimir Ergebnis$
'Und zurück
Text$ = ""

Whileloop 1,Len(Ergebnis$)

    Texto$ = Texto$ + CHR$(Ord(Mid$(Ergebnis$,&bucle,1))-13)

Endwhile

Imprimir Texto$
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  ▲
 




Julian
Schmidt
Ah sí,
el sieht bien de

Nur kommen en manchen Buchstaben Sonderzeichen heraus.

LG

Julian57
 
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
09.04.2011  ▲
 




Andreas
Miethe

War auch sólo como Anregung pensamiento.

Hier es ni.
Usted puede Usted sí una o. zwei Ersatztabellen hacer y el Bucle laufen dejar.
KompilierenMarcaSeparación
CLS
Var ZuErsetzen$ = "ABCDEFGHIJ"
'se ersetzt por
Var Ersatz$     = "1234567890"
Var Pos& = 0
Var Ergebnis$ = ""
Var Test$ = "ABER HALLO"

Whileloop 1,Len(Test$)

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

    If Pos&

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

    Más

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

    Endif

Endwhile

Imprimir Ergebnis$
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  ▲
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

13.079 Views

Untitledvor 0 min.
H.Brill04.08.2023
Torsten Rümker03.06.2015
Matthias Griesbach28.07.2014
Pauli23.07.2013
Más...

Themeninformationen

Dieses Thema ha 5 subscriber:

Julian Schmidt (5x)
unbekannt (2x)
Nico Madysa (2x)
Andreas Miethe (2x)
Jörg Sellmeyer (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie