vb6.0字符型变量_请问怎么用vb6.0提取某段文本中特定字符前的内容

原问题：请问怎么用vb6.0提取某段文本中特定字符前的内容
分类：编程开发 > 最后更新时间：【2016-12-31 19:18:36】
问题补充：

比如我有一段文本 : asdf#.uuk

dsgay6#lli7

uufre7276#0sj2h.d

怎么用vb6.0分别提取 # 前的内容并保存至变量

谢谢

最佳答案

这个可用instr+left实现

如

s = "asdf#.uuk"
a = InStr(s, "#")
s1 = Left(s, Len(s) - a)
Print s1
结果就是你要的,从文本读可用VB的文件操作

最佳答案由网友  whoami1978  提供
公告： 为响应国家净网行动，部分内容已经删除，感谢网友理解。
7

分享到：

其他回答

其它网友回答：
Const TXT As String = "asdf#.uuk" & vbCrLf & "dsgay6# lli7" & vbCrLf & "uufre7276#0sj2h.d"

其它网友回答：

其它网友回答：
'例1：不考虑换行符，取所有#之前的内容保存至数组

其它网友回答：
Private Sub Command1_Click()
   Dim Buf, S() As String
   Dim i, k As Long
   
   If InStr(2, TXT, "#") > 0 Then
       Buf = Left(TXT, InStrRev(TXT, "#") - 1)
       Buf = Split(Buf, "#")
       k = -1
       For i = 0 To UBound(Buf)
           If Buf(i) <> "" Then
               k = k + 1
               ReDim Preserve S(k)
               S(k) = Buf(i)
           End If
       Next
   
       '查看结果
       For i = 0 To k
           Debug.Print i + 1, S(i)
       Next
   End If
   
End Sub

其它网友回答：

其它网友回答：
'例2：按文件行进行处理，取#之前的内容保存至数组

其它网友回答：
Private Sub Command2_Click()
   Dim Buf, S()  As String
   Dim i, j, k As Long
   
   If InStr(2, TXT, "#") > 0 Then
       Buf = Split(TXT, vbCrLf)
       k = -1
       For i = 0 To UBound(Buf)
           j = InStr(Buf(i), "#")
           If j > 1 Then
               k = k + 1
               ReDim Preserve S(k)
               S(k) = Left(Buf(i), j - 1)
           End If
       Next
   
       '查看结果
       For i = 0 To k
           Debug.Print i + 1, S(i)
       Next
   End If

其它网友回答：
End Sub

其它网友回答：


追答：
按文件行==按文本行
    推荐