by Matthew Gates (16 Submissions)
Category: String Manipulation
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Fri 14th September 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Takes a string and makes it RightToLeft text (Arabic)
API Declarations
'Author: Aaron Young
'Origin: http://www.vbforums.com
'Purpose: Split function
'Version: VB4+
Private Function Split2(ByVal sString As String, ByVal sSeparator As String) As Variant
Dim sParts() As String
Dim lParts As Long
Dim lPos As Long
lPos = InStr(sString, sSeparator)
While lPos
ReDim Preserve sParts(lParts)
sParts(lParts) = Left$(sString, lPos - 1)
sString = Mid$(sString, lPos + Len(sSeparator))
lPos = InStr(sString, sSeparator)
lParts = lParts + 1
Wend
If Len(sString) Then
ReDim Preserve sParts(lParts)
sParts(lParts) = sString
End If
Split2 = IIf(lParts, sParts, Array())
End Function
Private Function StrReverse(mString As String) As String
Dim i As Integer
For i = Len(mString) To 1 Step -1
StrReverse = StrReverse & Mid$(mString, i, 1)
Next i
End Function
VBcoders
Dim vArray As Variant
Dim iArray As Integer
Dim sArray As String
vArray = Split(Text, " ")
For iArray = 0 To UBound(vArray)
sArray = sArray & Chr(32) & StrReverse(vArray(iArray))
Next iArray
RightToLeftText = StrReverse(sArray)
End Function