VB中如何获得2个字符之间的内容

VB中如何获得2个字符之间的内容

Dim strtemp() As String

Private Sub Command1_Click()
Dim Lstr As String
Open "C:\text.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Lstr
FenJie (Lstr)
Loop
Close #1
End Sub
Public Sub FenJie(sj As String)
Dim jishu As Integer
Dim j As Integer
j = 1
jishu = Len(sj)
ReDim strtemp(jishu)
If Mid(sj, 1, 1) <> "|" Then Exit Sub
For i = 2 To jishu - 2
strtemp(j) = Mid(sj, i, 1)
Text1.Text = Text1.Text & strtemp(j)
j = j + 1
Next
End Sub

自己在改吧！！

使用richtextbox控件 private sub command1_click() richtextbox1.selstart = 3 '#要高亮的起始字符数 richtextbox1.sellength = 5 '#要高亮的字符数 richtextbox1.selcolor = vbred '#颜色 richtextbox1.selfontsize = 20 '#字体 richtextbox1.selbold = true '#加粗 end sub