如下面的字串[最下面] 我如何將 它 分為三個欄位 做直列式排列呢 ??
[結果如下 ;
1. 原來你什麼都不想要 (張惠妹)
2. 男人不該讓女人流淚 (蘇永康)
3. 無條件為你 (梁靜茹)
1.原來你什麼都不想要(張惠妹) 2.男人不該讓女人流淚(蘇永康) 3.無條件為你(梁靜茹)
4.孟婆湯(游鴻明) 5.我多麼羨慕你(江美琪) 6.心太軟(任賢齊) 7.我應該得到(鄭秀文)
8.多愛我一天(ENERGY) 9.死心眼(彭佳慧) 10.吻別(張學友) 11.為你流的淚(侯湘婷)
12.除了愛你還能愛誰(動力火車) 13.哭過的天空(蘇慧倫) 14.用心良苦(張宇) 15. 眼淚(范曉瑄)
[結果如下 ;
1. 原來你什麼都不想要 (張惠妹)
2. 男人不該讓女人流淚 (蘇永康)
3. 無條件為你 (梁靜茹)
1.原來你什麼都不想要(張惠妹) 2.男人不該讓女人流淚(蘇永康) 3.無條件為你(梁靜茹)
4.孟婆湯(游鴻明) 5.我多麼羨慕你(江美琪) 6.心太軟(任賢齊) 7.我應該得到(鄭秀文)
8.多愛我一天(ENERGY) 9.死心眼(彭佳慧) 10.吻別(張學友) 11.為你流的淚(侯湘婷)
12.除了愛你還能愛誰(動力火車) 13.哭過的天空(蘇慧倫) 14.用心良苦(張宇) 15. 眼淚(范曉瑄)
文章標籤
全站熱搜
http://www.vbguide.com.tw
可以用")"來做區分 Dim Str As String, a, i As Integer Str = "1.原來你什麼都不想要(張惠妹) 2.男人不該讓女人流淚(蘇永康) 3.無條件為你(梁靜茹)4.孟婆湯(游鴻明) 5.我多麼羨慕你(江美琪) 6.心太軟(任賢齊) 7.我應該得到(鄭秀文)8.多愛我一天(ENERGY) 9.死心眼(彭佳慧) 10.吻別(張學友) 11.為你流的淚(侯湘婷)12.除了愛你還能愛誰(動力火車) 13.哭過的天空(蘇慧倫) 14.用心良苦(張宇) 15. 眼淚(范曉瑄)" a = Split(Str, Chr(41)) For i = 0 To UBound(a) If Len(a(i)) ＞ 2 Then List1.AddItem Trim(a(i)) & ")" End If Next i
用split分割，再用mid及instr取各欄位.