Re: [VB6 ] 字串包含換行判斷

看板Visual_Basic作者 (albb)時間18年前 (2007/09/28 07:22), 編輯推噓4(400)
留言4則, 2人參與, 最新討論串2/2 (看更多)
我是這樣寫的啦 XD n = "甲乙丙丁" & vbNewLine & "戊己庚辛" 'vbnewline就是 Chr(10) & Chr(13) n = Replace(n, Chr(10), "") '事實上,Chr(10) 可有可無 Dim data As Variant data = Split(n, Chr(13)) For i = 0 To UBound(data) Print data(i) NextD -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 203.64.26.55

09/28 22:45, , 1F
vbCrLf = vbNewLine
09/28 22:45, 1F

09/28 22:45, , 2F
Split(n, vbCrLf) 比較標準
09/28 22:45, 2F

09/28 23:26, , 3F
有些狀況下,會只有Chr(13),所以我才這樣用 XD
09/28 23:26, 3F

09/29 06:18, , 4F
可以先檢查有沒有 CrLf,沒有 CrLf 才用 Cr 分隔XD
09/29 06:18, 4F
文章代碼(AID): #16_3ig51 (Visual_Basic)
文章代碼(AID): #16_3ig51 (Visual_Basic)