作者macgyfu (YFU)
看板Visual_Basic
标题[VB6 ] 字串包含换行判断
时间Fri Sep 28 00:35:33 2007
请教各位一个问题，最近想处理一个字串，但里面包含有换行字元，我试着模拟
这个字串为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
1F：推 LPH66:用vbCrLf代表换行 09/28 02:58
2F：推 ClubT:只判断chr(13)应该就ok了 09/28 08:43
3F：推 fumizuki:vbCrLf = vbCr + vbLf = 13 + 10... 09/28 22:43
4F：推 macgyfu:但我用F8去跑，用if似乎不行 09/29 00:23
5F：推 fumizuki:你的if只检查a的字尾是13,10 ??? 永远不成立的条件??? 09/29 06:19
6F：推 ilway25:用 split 10/04 17:20