Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Placing a space every 4 characters of a string
- Thread starter AGP
- Start date
JohnYingling
Programmer
' Not tested
Function Space4(strIn)
Dim strOut
Dim I
For I = 1 to Len(strIn) - 4 Step 4
strOut = strOut & Mid(strIn,1,4) & " "
Next
If I <= Len(strIn) then
strOut = strOut & Mid(strin,I)
End if
Space4 = strOut
End Function Compare Code (Text)
Generate Sort in VB or VBScript
Function Space4(strIn)
Dim strOut
Dim I
For I = 1 to Len(strIn) - 4 Step 4
strOut = strOut & Mid(strIn,1,4) & " "
Next
If I <= Len(strIn) then
strOut = strOut & Mid(strin,I)
End if
Space4 = strOut
End Function Compare Code (Text)
Generate Sort in VB or VBScript
- Status
Similar threads
- Locked
- Question
- Locked
- Question