German vb6 code nach B4A

[Sinan Tuzcu]

kann mir einer helfen wie ich das in B4A umwandeln kann.

Dim lngCount As Long
Dim lngLen As Long

lngCount = 0
For lngLen = 1 To Len(MeinString) - Len(SuchText) + 1

    If (UCase$(Mid$(MeinString, lngLen, Len(SuchText))) = _
                                                UCase$(SuchText)) Then
        lngCount = lngCount + 1
    End If
Next lngLen

Debug.Print SuchText & " kommt " & CStr(lngCount) & " mal vor."

 

[Sinan Tuzcu]

gelöst

gelöst