伊莉討論區

標題: [已解決]如何用left回傳你要的值(急>o<) [打印本頁]

作者: 黃金兄弟象 時間: 2009-4-28 08:07 PM 標題: [已解決]如何用left回傳你要的值(急>o<)

本帖最後由黃金兄弟象於 2009-12-23 03:24 PM 編輯

想請問各位大大~

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

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

作者: darry0506 時間: 2009-4-28 09:01 PM

TrimStart , Split

作者: ulstek 時間: 2009-4-28 09:06 PM

提示: 作者被禁止或刪除內容自動屏蔽

作者: tvmateiii 時間: 2009-4-28 10:06 PM

本帖最後由 tvmateiii 於 2009-4-28 10:48 PM 編輯

Private Sub Text1_Change()

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

'如果 StrChkAndSplit = Ture 則將SplitTxt$() 字串陣列填入 List1 清單內
''關鍵字設 "MJ"，分割符號設 ","
'SplitTxt$() 一定要上方設定 ReDim SplitTxt$(0) 放分割後字串資料
If StrChkAndSplit(Text1.Text, "MJ", ",", SplitTxt$()) Then
   For i = 0 To UBound(SplitTxt$)
      List1.AddItem SplitTxt$(i)
   Next
End If
End Sub

' StrChkAndSplit = True  代表有找到關鍵字
'                      = False 代表有找到沒有關鍵字
' Txt 待分割的字串
' L 左方開頭關鍵字
' Dot 分割符號
' SplitTxt() 存放 Dot 分割 Txt 的字串陣列
Function StrChkAndSplit(Txt As String, L As String, Dot As String, SplitTxt() As String) As Integer
  Dim tlen As Long, t As String
  tlen = Len(L$) '取得關鍵字的字串長度
  t = LTrim(Txt) '將待分割的字串前方的空白去除
  If Left(UCase(t), tlen) = UCase$(L$) Then '確認有找到關鍵字
   SplitTxt$ = Split(Mid$(t, tlen + 1), Dot$) '取得要分割的字串
   StrChkAndSplit = True
  Else
   StrChkAndSplit = False '代表左方開頭沒有找到關鍵字
  End If
End Function

'PS:如果你的關鍵字要區分大小寫;請把 UCASE 的功能拿掉即可.
程式執行畫面:

  無輸入MJ 關鍵字
[attach]15558859[/attach]
  有輸入MJ 關鍵字
[attach]15558059[/attach]

作者: 黃金兄弟象 時間: 2009-5-2 01:09 AM

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

歡迎光臨伊莉討論區 (http://www01.wahas.com/)