Question

使用vb 实现指定位置进行字符替换，如20100919113357375 改为20110919113357375 怎么解决？

Answer 1

text1= Left(20100919113357375, 3) & 1 & Right(20100919113357375, 13)
' 1 为需要替换
本示例使用 Mid 语句来得到某个字符串中的几个字符。

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo " 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid "。
LastWord = Mid(MyString, 14, 4) ' 返回 "Demo "。
MidWords = Mid(MyString, 5) ' 返回 "Funcion Demo "。

Left 函数示例
本示例使用 Left 函数来得到某字符串最左边的几个字符。

Dim AnyString, MyStr
AnyString = "Hello World " ' 定义字符串。
MyStr = Left(AnyString, 1) ' 返回 "H "。
MyStr = Left(AnyString, 7) ' 返回 "Hello W "。
MyStr = Left(AnyString, 20) ' 返回 "Hello World "。

Right 函数示例
本示例使用 Right 函数来返回某字符串右边算起的几个字符。

Dim AnyString, MyStr
AnyString = "Hello World " ' 定义字符串。
MyStr = Right(AnyString, 1) ' 返回 "d "。
MyStr = Right(AnyString, 6) ' 返回 " World "。
MyStr = Right(AnyString, 20) ' 返回 "Hello World "。

Answer 2

你看看下面的代码就明白了：
Private Sub Command1_Click()
a = "20100919113357375"
Print a
Mid(a, 4, 1) = "1"
Print a
Mid(a, 8, 2) = "☆★"
Print a
End Sub

Answer 3

直接replace不行吗？写那么多做甚

Answer 4

a = "20100919113357375"
Mid(a, 4, 1) = "1"
Debug.Print a