假設我有一個字串 strOK 裡面的長度是 23
我要每一次抓 十筆 資料出來 如果不足十筆就把剩下的資料抓出來
例如 資料長度 23 就是抓
10筆
10筆
3筆
可否指教一下 應該要怎麼寫呢??
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(4) 人氣()


留言列表 (4)

發表留言
  • mingzhong
  • MID
  • yigong
  • 我知道要用 mid 但是 我不太能理解怎麼組合起來
    可否打一各範例給我看嗎 感謝
  • shownic
  • 條件不夠,您的每筆資料長度是多少?是固定長度還是不固定長度?
    如果您不希望他人知道資料內容自己也無法作一些資料範例,可以自己用迴圈去試。
  • Ellis
  • 之前就有人問了,請用全文檢索查
    Private Sub Command1_Click()
    Dim intLen As Integer
    Dim strData As String
    Dim strAnswer As String
    strData = "abcdefghijklmnopqrstuvwxyz"
    intLen = 10
    Do Until Len(strData) <= intLen
    strAnswer = Left(strData, intLen)
       strData = Mid(strData, intLen + 1)
       Debug.Print strAnswer
    Loop
    strAnswer = Left(strData, intLen)
    Debug.Print strAnswer
    End Sub