Hello friends!
in this sample I want replacing all characters (28 case) in the Textbox by this rules.
A = AB1
B = BC2
C = CD3
D = DE4
...
for example :
C A D = CD3 AB1 DE4
I think we need a module . can anyone help ?
Hello friends!
in this sample I want replacing all characters (28 case) in the Textbox by this rules.
A = AB1
B = BC2
C = CD3
D = DE4
...
for example :
C A D = CD3 AB1 DE4
I think we need a module . can anyone help ?
perhaps something like
Code:function replaceChars(S as string) as string dim I as integer dim newStr as string for I=1 to len(s) Select case mid(s,i,1) case " " newstr=newStr & " " Case "A" newstr=newStr & "AB1" case "B" newstr=newstr & "BC2" case "C" ….. end select replaceChars=newStr end function
sorry, forgot the next I line, goes after the end select line
thanks dear Ajax