魚骨頭的雲端圖書館 - Powered by Discuz! Board

繁體 | 簡體

Sclub交友聊天~加入聊天室當版主

(檢舉)

新浪微博

QQ空间

Facebook

Google+

Plurk

Twitter

Line

標題: split() [打印本頁]

作者: mhfo 時間: 2012-12-12 09:28 標題: split()

Private Sub Form_Load()
ResultContent.Text = ""
Dim National$(), Tem$
Dim i&
Tem = "中文英語阿爾巴尼亞語阿拉伯語亞塞拜然語愛爾蘭語愛沙尼亞語白俄羅斯語保加利亞語冰島語波蘭語波斯語布林文(南非荷蘭語) " & _
      "丹麥語德語俄語法語菲律賓語芬蘭語格魯吉亞語海地克裡奧爾語韓語荷蘭語加利西亞語加泰羅尼亞語捷克語克羅埃西亞語 " & _
      "拉脫維亞語立陶宛語羅馬尼亞語馬爾他語馬來語馬其頓語挪威語葡萄牙語日語瑞典語塞爾維亞語斯洛伐克語斯洛維尼亞語 " & _
      "斯瓦希裡語泰語土耳其語威爾士語烏克蘭語西班牙的巴斯克語西班牙語希伯來語希臘語匈牙利語亞美尼亞語義大利語意第緒語 " & _
      "印地語印度烏爾都語印尼語越南語"
National = Split(Tem) '將Tem格式資料轉為陣列

Tem = "zh-CN en sq ar az ga et be bg is pl fa af da de ru fr tl fi ka ht ko nl gl ca cs hr lv lt ro mt ms mk no pt ja sv sr sk sl " & _
      "sw th tr cy uk eu es iw el hu hy it yi hi ur id vi"
NationalCode = Split(Tem)
For i = LBound(National) To UBound(National) '將陣列值用迴圈填進combo 控制項的item裡
                                                                        'LBound()傳回陣列的最低索引值
                                                                        'UBound()傳回陣列的最高索引值
      Combo1.AddItem National(i)
      Combo2.AddItem National(i)
Next i
Combo1.ListIndex = 0
Combo2.ListIndex = 1

End Sub

歡迎光臨魚骨頭的雲端圖書館 (http://mhfo.hotbbs.info/)