Hallo Experten,
ich benötige die Syntax für einen einfachen Dreieckstausch. Ich habe ein String „Berlin ist eine schöne Stadt.“ Nun möchte ich immer den ersten mit dem letzten Buchstaben tauschen.
Folglich:
B wird --> .
e wird -->t
r wird -->d
l wird --> a
i wird --> t
n wird --> S
Das ganze soll über eine For-Next-Schleife Laufen und mit
Mid(string,start,legth) geschehen.
Danke schon mal im Vorraus
Rudolf
Hallo Rudolf,
ich bin mir nicht sicher, daß ich Dich richtig verstanden habe.
Du willst die Zeichen so tauschen, daß eine Laufschrift entsteht?
Das könnet z.B. so aussehen:
Option Explicit
Dim txt As String
Private Sub Form\_Load()
txt = "Berlin ist eine schöne Stadt."
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1\_Timer()
txt = txt + Left(txt, 1)
txt = Right(txt, Len(txt) - 1)
Label1.Caption = txt
End Sub
Richtig so?
Gruß, Rainer
Hallo Rudolf,
oder eher so:
Function mirrorString(stringValueOld As String) As String
For i = 0 To Len(stringValueOld) - 1
mirroString = mirroString & Mid(stringValueOld, Len(stringValueOld) - i, 1)
Next
End Function
Sub test()
MsgBox (mirrorString("Berlin ist eine schöne Stadt."))
End Sub
mfg
Dirk.Pegasus
Hallo.
ich benötige die Syntax für einen einfachen Dreieckstausch.
Ich habe ein String „Berlin ist eine schöne Stadt.“ Nun möchte
ich immer den ersten mit dem letzten Buchstaben tauschen.
Rückwärts schreiben Du wohl willst.
Public Function pfn\_str\_BackStrg(ByVal lpi\_str\_NormStrg As String) As String
Dim lpm\_int\_LoopCoun As Integer
Dim lpm\_str\_BackStrg As String
For lpm\_int\_LoopCoun=Len(lpi\_str\_NormStrg) To 1 Step -1
lpm\_str\_BackStrg=lpm\_str\_BackStrg+Mid$(lpi\_str\_NormStrg, \_
lpm\_int\_LoopCoun, 1)
Next
pfn\_str\_BackStrg=lpm\_str\_BackStrg
End Function
macht das.
!ßapS leiV .amirp znag sad treinoitknuf ,tsheis uD eiW
Gruß Eillicht zu Vensre
Danke für die Posts die haben mir sehr geholfen.
Ich habe sie entsprechend auf meine Form umgeschrieben.
Und es hat geklappt.
DANKE AN ALLE DIE GEPOSTET HABEN!!
Liebe Grüße
Rudolf