Dim lsTemp As String
lsTemp = Right(Text3, 7)
If Left(lsTemp, 1) = 2 Then
Else
Mid(lsTemp, 1, 1) = 2
End If
Text3 = Left(Text3, Len(Text3) - 7) & lsTemp

■□■□■□■□■□■□■□■□■□■□■□■□■□■华丽的分割线■□■□■□■□■□■□■□■□■□■□■□■□■

本着多问的原则，把这个拿来问下，希望大家给个说法，谢谢了


好郁闷啊，换了三个标题，老说没有意义...郁闷

算了，本来要用[求助]的，还是改成[讨论]算了

....第N次了，讨论都说没意义，我的IQ不高，真是想不出来什么有意义的了... T_T

N+1次，真的好可怜啊.....

还没对...加个TextBox试试

我刚才试了一下,不行.Mid(lsTemp, 1, 1)本身就是常量也能赋值?

[此贴子已经被作者于2007-8-8 12:56:33编辑过]

恩 是的啊! 不过这种替换方便,所以才替换的!

居然可以,今天总算见识到了.VB里面还可以这样子!!!!