Question

VB高手进，如果提取TEXT1中第几行第几个字符之后的几个字符串

如果提取TEXT1中第几行第几个字符之后的几个字符串

Answer 1

使用API最好，速度快，不过具体代码没现成的。如果你每行都有一个回车换行符的话(也就是说没有自动换行)，那可以使用以下方法：Public Function QuZiFu(strText As TextBox, i As Long, j As Long, k As Long) As String
Dim tmp As Variant
tmp = Split(strText.Text, vbCrLf)
QuZiFu = Mid(tmp(i - 1), j + 1, k)
End Function
'i要取第几行'j要取第几个字符后的，或者传参数时直接传要从第几个开始取，那样程序中去掉+1就行了'k要取几个字符

Answer 2

Private Sub Form_Load()
'用下面我写的那个函数来返回值
'文本,第几行,第几个字开始,取几个字
'你要的第三个字后面也就是从第4个字开始取2个
MsgBox GetData(Text1.Text, 3, 4, 2)
End SubPrivate Function GetData(ByVal StrA As String, ByVal LineA As Long, ByVal StarA As Long, ByVal LenA As Long) As String
Dim By() As String
By = Split(StrA, vbNewLine)
StrA = By(LineA - 1)
GetData = Mid(StrA, StarA, LenA)
End Function

Answer 3

dim 你要的字符串as string =text1.text.substring(第几个开始，要取几个字符)