為什麼這篇vba換行chr鄉民發文收入到精華區：因為在vba換行chr這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者macgyfu (YFU)看板Visual_Basic標題[VB6 ] 字串包含換行判斷時間Fr...
請教各位一個問題，最近想處理一個字串，但裡面包含有換行字元，我試著模擬
這個字串為A & Chr(10) & Chr(13) & B，結果會像
A
B
但是我想把換行字元除掉，把每一行當作一個新字串，就會有字串A與字串B，我
程式如下。
Private Sub CommandButton1_Click()
Dim a As String
Dim c As Integer
c = 0
Dim data(2) As String
a = ("A" & Chr(10) & Chr(13) & "B")
For i = 1 To Len(a)
data(c) = data(c) & Mid(a, i, 1)
If Mid(a, Len(a), 1) = Chr(10) Then
c = c + 1
End If
If Mid(a, Len(a), 1) = Chr(13) Then
c = c + 1
End If
Next i
End Sub
但把他讀進來後似乎不能用x=Chr(13)這樣，不知道如果遇到字串換行判斷在VB要如何
處理？
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.112.192.121
推 LPH66:用vbCrLf代表換行 09/28 02:58
推 ClubT:只判斷chr(13)應該就ok了 09/28 08:43
推 fumizuki:vbCrLf = vbCr + vbLf = 13 + 10... 09/28 22:43
推 macgyfu:但我用F8去跑，用if似乎不行 09/29 00:23
推 fumizuki:你的if只檢查a的字尾是13,10 ??? 永遠不成立的條件??? 09/29 06:19
推 ilway25:用 split 10/04 17:20