vb 找出关键字,删除关键字后一定数量字符

vb 从txt文本中找出关键字，比如说学生的姓名，然后将学生姓名后面的200个字符删除，代码怎么写，谢谢大家啦！

2026年09月28日 18:15

有2个网友回答

网友（1）：

大概可以这样。

Private Sub Form_Load()
    Dim S As String, L As Long
    Open "d:\123.txt" For Binary As #1
        S = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
        L = InStr(S, "学生姓名")
        S = Left(S, L - 1) & Mid(S, L +200)
    Open "d:\123.txt" For Output As #1
        Print #1, S
    Close
End Sub

网友（2）：

使用VB6 的函数 Instr()
可以返回要查找的字符串在原字符串的位置！
例如：
s = "abcdefghi"
L = Instr ( s,"efg")
L 里保存的是5
建议安装MSDN，可以获得即时帮助