求求你幫我「vb6如何顯示特定文本」

你好﹛

若我的text1.text有以下資料

betValue[1] = ['16-12-2009TUE1**HAD**AAA**BBB**1**0**x**x**x**EFA**39592', '2.20**主**1','3.25**和**X','2.78**客**2']

betValue[2] = ['16-12-2009TUE2**HAD**CCC**DDD**1**0**x**x**x**EFA**39592', '2.20**主**1','3.25**和**X','2.78**客**2']

betValue[3] = ['16-12-2009TUE3**HAD**EEE**FFF**1**0**x**x**x**EFA**39592', '2.20**主**1','3.25**和**X','2.78**客**2']

========================================================

我只想要

betValue[陣列]下面的數據

例如BETSVALUE[1](顯示在TEXT1.text)

日期資訊 16-12-2009TUE1(顯示在TEXT2.text)

名稱 AAA**BBB(顯示在TEXT3.text)

及數值 內的2.20、3.25及2.78(顯示在TEXT4.text)

另外有一點小問題,就是製作「程式.exe」時vb6出現錯誤,可以順便解答嗎?

=========================================================

求求大大的幫助,小弟感激不盡!!!

Update:

謝謝,Nona

其實betValue[]也是文本的一部份(儲存在text0.text中)..

整個文本內有數個betvalue的陣列..

Update 2:

那個s><噢,是我打錯了字,

那個vb6出現的錯誤,不是單純的錯誤,是整個程式「掛」了。

1 Answer

Rating
  • Nona
    Lv 6
    1 decade ago
    Favorite Answer

    想要切割字串來取得片段資料,請用SPLIT,以下能正確執行:

    Dim Bestvalue(9) As String

    Private Sub Command1_Click()

    Dim SA() As String

    SA = Split(Bestvalue(1), "*")

    Text1.Text = Bestvalue(1)

    Text2.Text = SA(0)

    Text3.Text = SA(4) & "**" & SA(6)

    End Sub

    Private Sub Form_Load()

    Bestvalue(1) = "16-12-2009TUE1**HAD**AAA**BBB**1**0**x**x**x**EFA**39592', '2.20**主**1','3.25**和**X','2.78**客**2"

    End Sub

    Text4你自己想想怎麼寫(舉一反三你應該會吧!這樣才會進步!)。

    至於製作執行檔時為啥出錯?

    首先你的程式寫法明顯不是VB6,而是C或JAVA的格式(VB的陣列是用圓括號(),而JAVA或C是用方括號[]),另一個錯誤是你陣列命名成betValue,但你確想從BestValue裡挖資料,那當然會找不到(少一個s你發現了嗎?)。

Still have questions? Get your answers by asking now.