谢谢

dycadrtf

[ 本帖最后由 dycadrtf 于 2008-8-28 08:55 编辑 ]

dreamever

例子2
[a]something
这个字符串有个两个label:
a
b
按照你的说明,这里面怎会有两个label？

dreamever

好象我不能回帖了？

小孩

实在不知道你要啥

hsjzfling

貌似不难，就是做一些字符串的处理，考察点大概就在对于各种可能情况的处理，嗯，再加上异常处理。

dycadrtf

出鬼了，我例子明明写的是
例子2
[a]something
这个字符串有个两个label:
a
b

怎么显示的不对呢？
哪去了啊？

dycadrtf

靠，还是没显示出来

dycadrtf

额，没人帮个忙吗？

zte_boy

是否可能出现嵌套的情况，如：[a 2[b6]1c5] 的情况？

[ 本帖最后由 zte_boy 于 2008-8-26 10:29 编辑 ]

dycadrtf

原帖由 zte_boy 于 2008-8-26 10:28 发表
是否可能出现嵌套的情况，如：[a 21c5] 的情况？

不用考虑的，就假设输入的都是没有嵌套的情况

没有蛀牙

看不懂你的例子

hsjzfling

原帖由 dycadrtf 于 2008-8-24 14:08 发表
分析一个字符串，分析出字符串中的label情况，被"[]" 包围的字符串就是一个label，一个"[]"中可能包含多个label，以"," 或者 " "(空格)分隔，
如果label是用引号包含的则忽略其中的空格。
例子说明
lable是一个字 ...

写了个例子，lz有需要自己再封装一下好了

1. Dim arrLabel(1000), iCount, iLabel:iLabel=0
   
2. str="[kk]【""aa, ab""】[""b bb"" cd]【cc,dd efg】"
   
3. Call RemoveChnSquareBrackets(str)
   
4. Call RemoveEngSquareBrackets(str)
   
5. Call RemoveQuotationMarks(str)
   
6. For iCount = 0 To iLabel-1
   
7. WScript.Echo arrLabel(iCount)
   
8. Next
   
9. 
   
10. Sub RemoveEngSquareBrackets(ByRef strng)
    
11. Dim sInd, eInd, subStrng
    
12. sInd = InStr(strng, "[")
    
13. If sInd = 0 Then
    
14.   Exit Sub
    
15. Else
    
16.   eInd = InStr(sInd+1, strng, "]")
    
17.   subStrng = Mid(strng, sInd+1, eInd-sInd-1)
    
18.   strng = Left(strng, sInd - 1) & Right(strng, Len(strng) - eInd)
    
19.   Call RemoveQuotationMarks(subStrng)  
    
20. End If
    
21. Call RemoveEngSquareBrackets(strng)
    
22. End Sub
    
23. 
    
24. Sub RemoveChnSquareBrackets(ByRef strng)
    
25. strng = Replace(strng, "【", " ")
    
26. strng = Replace(strng, "】", " ")
    
27. End Sub
    
28. 
    
29. Sub RemoveQuotationMarks(ByRef strng)
    
30. Dim sInd, eInd
    
31. sInd = InStr(strng, Chr(34))
    
32. If sInd = 0 Then
    
33.   Call GetSingleLabel(strng)
    
34.   Exit Sub
    
35. Else
    
36.   eInd = InStr(sInd+1, strng, Chr(34))
    
37.   arrLabel(iLabel) = Mid(strng, sInd+1, eInd-sInd-1)
    
38.   iLabel = iLabel + 1
    
39.   strng = Left(strng, sInd - 1) & Right(strng, Len(strng) - eInd)
    
40.   Call RemoveQuotationMarks(strng)
    
41. End If
    
42. End Sub
    
43. 
    
44. Sub GetSingleLabel(strng)
    
45. Dim arrSplitbySpace, arrSplitByComma, i, j
    
46. arrSplitbySpace = Split(strng, " ")
    
47. For i = 0 To UBound(arrSplitbySpace)
    
48.   arrSplitByComma = Split(arrSplitbySpace(i), ",")
    
49.   For j = 0 To UBound(arrSplitbyComma)
    
50.    If arrSplitByComma(j) <> "" Then
    
51.     arrLabel(iLabel) = arrSplitByComma(j)
    
52.     iLabel = iLabel + 1
    
53.    End If
    
54.   Next
    
55. Next
    
56. End Sub

复制代码

昨晚朋友催的急，代码只是简单的调试了下，早上来看了看才发现调试的是中间过程，最终的输入都还没改回来~~
代码我得再稍微改改~~
改完了，顺便简单提下思路咯

这道题难点其实就在于各种存在的情况相对较多，将之逐一消除掉就好了
1. 在不考虑[]嵌套的情况下，将【】直接替换为空格即可，然后循环将每对[]中的子字符串找出来，本例中是用的此逻辑；
    若要考虑嵌套，则第1步就要改为：分别搜索第1个"]"和"】"，取position值小的那个eInd，再搜索与之匹配的position最大但是小于eInd的sInd，则sInd与eInd之间的就是第一个子字符串，然后删除掉该对中括号及子字符串，递归调用以逐一找出所有配对的中括号及子字符串。
2. 再看子字符串中有没""存在，有的话就直接将每对""中的值存入arrLabel数组中，并删除掉该""及其中内容；
3. 再看子字符串中剩下的还有几个label，分别以" "和","来split，得到不为空的值就都是label

[ 本帖最后由 hsjzfling 于 2008-8-27 11:00 编辑 ]

dycadrtf

原帖由 没有蛀牙 于 2008-8-26 15:41 发表
看不懂你的例子

有这么难看懂吗？

hsjzfling

我修改了下在12楼的代码，并补充了点思路~