vb instr left rignt 取text某些值

Question

例:
text1 545fds5156\4441fdsaf61\151fdaf9411\16515fdaf1\
我要把我要把\俩边的数都一段段的提出来,
但是又不知道文本里出现多少个\

声明,只能用instr left rignt实现.不然不给分.呵呵
不管字母还是数字,提出来为换行文本,每一段为一行
545fds5156\4441fdsaf61\151fdaf9411\16515fdaf1\
提出来后就为
545fds5156
4441fdsaf61
151fdaf9411
16515fdaf1

注意哦.有多少段不知道哦.这只是例子

是的,只能用instr left right ,呵呵

Inpool 你的不行啊。

Answer 1

'需控件：Command1，Text1，Text2
'Text2 用于显示结果，预先在属性窗口设置属性 MultiLine 为 True，属性 ScrollBars 为 3
Private Sub Form_Load()
Text1 = "545fds5156\4441fdsaf61\151fdaf9411\16515fdaf1\"
End Sub
Private Sub Command1_Click()
'将 nStr 中的所有 OldStr 替换为 NewStr
Dim nStr As String, OldStr As String, NewStr As String
Dim S As Long, S1 As Long, sOld As Long, sNew As Long

nStr = Text1
OldStr = "\"
NewStr = vbCrLf '回车换行符
sOld = Len(OldStr): sNew = Len(NewStr)
S = 1
Do
S1 = InStr(S, nStr, OldStr, 1)
If S1 = 0 Then Exit Do
' 前面 新字符 后面的的
nStr = Left(nStr, S1 - 1) & NewStr & Right(nStr, Len(nStr) - S1 - sOld + 1)
'用下面的一句子替换上面一句也可：
'nStr = Left(nStr, S1 - 1) & NewStr & Mid(nStr, S1 + sOld)
S = S1 + sNew
Loop
Text2 = nStr '显示到 Text2
End Sub

Answer 2

字母要不要?你举个例子,提取出来是什么样的?

只能用instr left right 么? 一个split就好了嘛!!

用数组算不算犯规??
用了数组,只是用来记数

Option Explicit

Private Sub Command1_Click()
Dim myStr As String, sum As Integer
Dim i As Integer, a() As Integer, k As Integer
On Error Resume Next
myStr = "545fds5156\4441fdsaf61\151fdaf9411\16515fdaf1\"
Do
i = InStr(i + 1, myStr, "\")
ReDim Preserve a(k)
If k = 0 Then
a(k) = i - 1
sum = sum + i
Print Right(Left(myStr, i - 1), a(k))
Else
a(k) = i - sum - 1
sum = sum + a(k) + 1
Print Right(Left(myStr, i - 1), a(k))
End If
k = k + 1
Loop While i <> 0
End Sub

Answer 3

function abc(aa)
dim temp=aa
dim start=0,n=0

'先计算字符串的长度（如果没有限制，可直接用len）
while(left(temp,n)<>temp)
n=n+1
wend

'开始分割
while temp <> ""
abc=abc&left(temp,instr(temp,"\")-1)&"\n"
temp=right(temp,n-instr(temp,"\")+1)
wend

end function

使用txt=abc(text1)即是你想要的结果