分割字符串
aa\bb\cc\dd\ee
如何分成两个字符串
第一个是开始到遇到第一个'\'为止 及 aa
第二个是乘下的 及 bb\cc\dd\ee
问题点数：50、回复次数：11Top
1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-06 14:39:22 得分 5
用InStr函数和Mid函数Top
2 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-06 14:50:05 得分 15
参考：
Private Sub Form_Load()
Dim str As String, pos1 As Long, pos2 As Long, strTmp As String, str1 As String, str2 As String
str = "XXXX\aa\bb\cc\dd\eeXXXX"
pos1 = InStr(str, "\") '得到第1个\的位置
pos2 = InStr(Mid(str, pos1 + 1), "\") '得到第2个\的位置
strTmp = Mid(str, pos1 + 1, pos2 - 1) '得到第1和第2个\之间的字符串（aa）
Debug.Print strTmp
If pos1 <> 0 Then
str1 = Left(str, pos1 - 1) & "\" & strTmp
str2 = Mid(str, pos1 + 1 + Len(strTmp))
End If
Debug.Print str1
Debug.Print str2
End SubTop
3 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-03-06 14:55:44 得分 15
Dim str As String
Dim i As Integer
Dim a(1) As String
str = "aa\bb\cc\dd\ee"
i = InStr(1, str, "\")
a(0) = Left(str, i - 1)
a(1) = Mid(str, i + 1)
Top
4 楼bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回复于 2006-03-06 15:02:20 得分 5
已解
蹭分Top
5 楼tmzygar（阿明）回复于 2006-03-06 15:03:43 得分 0
不好意思 在加个
aa 取出来是 String 类型的
怎么转换为 KeyRoot 类型啊
我只是用VB做个控件
语法一点不熟Top
6 楼AnnaBear（淡淡）回复于 2006-03-06 15:23:53 得分 5
Private Sub Command1_Click()
Dim str As String
Dim i As String
Dim j As String
Dim k As String
str = "aa\bb\cc\dd\ee"
i = InStr(1, str, "\")
j = Mid(str, i + 1)
k = Mid(str, 1, i)
End SubTop
7 楼AnnaBear（淡淡）回复于 2006-03-06 15:29:54 得分 0
tmzygar(阿明):
KeyRoot 类型是什么类型？VB有吗？查MSDN没找到Top
8 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-06 15:55:50 得分 0
读写注册表？？Top
9 楼tmzygar（阿明）回复于 2006-03-06 16:57:42 得分 0
是啊 读注册表
要提取跟路径出来就是个KeyRoot 类型的
就象HKEY_LOCAL_MACHINE的Top
10 楼tmzygar（阿明）回复于 2006-03-06 16:59:44 得分 0
javascript里面只能放个长字符串进去
HKEY_LOCAL_MACHINE认不了Top
11 楼yxs0001（玉箫生）回复于 2006-03-06 18:59:35 得分 5
split函数Top
