[已解決]如何用left回傳你要的值(急>o<)

黃金兄弟象

想請問各位大大~

我想要在Text1.text輸入比如說 MJ100,10,50,40,30的字串
1.我要先去判斷我是否輸入的是MJ，才去執行下面的動作
2.然後把","前的數據傳出來(共有五各數據分別讀出來)

不知道各位大大能否幫我解惑一下

黃金兄弟象

謝謝各位大大的分享
小弟我會試試看的
感恩不盡!!!!

tvmateiii

Private Sub Text1_Change()

   ReDim SplitTxt$(0)
   List1.Clear '清除清單資料

   '如果 StrChkAndSplit = Ture 則將SplitTxt$() 字串陣列填入 List1 清單內
   ''關鍵字設 "MJ"，分割符號設 ","
   'SplitTxt$() 一定要上方設定 ReDim SplitTxt$(0) 放分割後字串資料
...

瀏覽完整內容，請先 註冊 或 登入會員

1. 用 left( strTmp, 2 ) 判斷 MJ
2. 建立此 function

Public Function GetToken(new_txt As String, delimiter As _
    String) As String
Static txt As String
Dim pos As Integer

    ' Save new text.
    If new_txt <> "" Then txt = new_txt

    pos = InStr(txt, delimiter)
    If pos < 1 Then pos = Len(txt) + 1
    GetToken = Left$(txt, pos - 1)
...

瀏覽完整內容，請先 註冊 或 登入會員

darry0506

TrimStart , Split