VB中，如何在一个字符串里按特定规律插入字符？

Question

例如字符串A=“3E233445D4”，希望按照每两个字符插入一个分隔符（例如，英文输入状态下的句号）的规律，将其转换成字符串B=“3E.23.34.45.D4”，在VB中应该如何写程序语句？烦请高手解答，谢谢！

Answer 1

ayanami365 的思路正确，但是忽略了当S为空的时候这一特殊情况。
写了一个函数给您调用，这样你可以在任意字符串中查找某字符的个数，调用格式CharNum(A,B),其中A是字符串，B是要查找的字符：

Function CharNum(ByVal strInput As String, ByVal strChar As String) As Long
Dim S() As String
If Len(Trim(strInput)) = 0 Then
CharNum = 0
Else
S = Split(strInput, strChar)
CharNum = UBound(S)
End If
End Function

Private Sub Command1_Click()
Dim A As String, C As String
A = "1,2"
C = ","
MsgBox CharNum(A, C)
End Sub

Answer 2

Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim i As Long
a = "3E233445D4"
b = Left$(a, 2)
For i = 1 To 4
b = b & "." & Mid$(a, i * 2 + 1, 2)
Next i
MsgBox b
End Sub本回答被提问者采纳

Answer 3

VB不会，VB.Net行不？