[VB6 ] 字串包含換行判斷

看板Visual_Basic作者 (YFU)時間16年前 (2007/09/28 00:35), 編輯推噓6(600)
留言6則, 5人參與, 最新討論串1/2 (看更多)
請教各位一個問題,最近想處理一個字串,但裡面包含有換行字元,我試著模擬 這個字串為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

09/28 02:58, , 1F
用vbCrLf代表換行
09/28 02:58, 1F

09/28 08:43, , 2F
只判斷chr(13)應該就ok了
09/28 08:43, 2F

09/28 22:43, , 3F
vbCrLf = vbCr + vbLf = 13 + 10...
09/28 22:43, 3F

09/29 00:23, , 4F
但我用F8去跑,用if似乎不行
09/29 00:23, 4F

09/29 06:19, , 5F
你的if只檢查a的字尾是13,10 ??? 永遠不成立的條件???
09/29 06:19, 5F

10/04 17:20, , 6F
用 split
10/04 17:20, 6F
文章代碼(AID): #16-zlMIy (Visual_Basic)
文章代碼(AID): #16-zlMIy (Visual_Basic)