German String nach jedem Zeichen ein Leerzeichen

so27

Active Member
Licensed User
Longtime User
Hallo zusammen,

in einer App von mir werden verschiedene Zeichen in einem String ausgegeben. Diese Zeichen werden alle aneinander, ohne Leerzeichen geschrieben.

Nun benötige ich aber für eine weitere Funktion Leerzeichen nach jedem Zeichen in diesem String.

Beispiel:

String: jhfdjufah88 (so wird er ausgegeben)

Ich benötige ihn aber wie folgt:
j h f d j u f a h 8 8

Ach ja, jeder String ist unterschiedlich lang.

Weiß jemand auf die Schnelle wie das mit B4A geht?
 

klaus

Expert
Licensed User
Longtime User
Das kann man so machen:
B4X:
Private strOld = "jhfdjufah88" As String
Private strNew As String

Private i As Int
For i = 0 To strOld.Length - 1
    strNew = strNew & strOld.CharAt(i)
    If i < strOld.Length - 1 Then
        strNew = strNew & " "
    End If
Next
 
D

Deleted member 103

Guest
Es geht auch eleganter. :)
B4X:
Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private strOld = "jhfdjufah88" As String
    Private sb As StringBuilder
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")

    Log(NewString(strOld))
End Sub

Sub NewString(OldStr As String) As String
    sb.Initialize
   
    For i = 0 To OldStr.Length - 1
        sb.Append(OldStr.CharAt(i))
        If i < OldStr.Length - 1 Then sb.Append(" ")
    Next

    Return sb.ToString
End Sub
 
Top