[VB6 ] 字串包含換行判斷

[macgyfu (YFU)]

請教各位一個問題，最近想處理一個字串，但裡面包含有換行字元，我試著模擬
這個字串為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代表換行
推 ClubT:只判斷chr(13)應該就ok了
推 fumizuki:vbCrLf = vbCr + vbLf = 13 + 10...
推 macgyfu:但我用F8去跑，用if似乎不行
推 fumizuki:你的if只檢查a的字尾是13,10 ??? 永遠不成立的條件???
推 ilway25:用 split