String 如何使用VB6获取此字符串的每一行

我想知道如何在下一个

@

之前获取此字符串的每一行

@cnb Santander @cnn VENTA @br @cnn PRUEBAS INTEGRACIONES DLL 但似乎

vbCrLf

不起作用

还尝试：

sLines = Split(Text1.Text, " ")

---

如果文本是手动输入到多行文本框中的，那么每次按回车键都会添加一个CrLf组合，您的代码应该可以正常工作

由于代码不起作用，我假设文本是从其他地方加载的，可能的问题是文本是Unix格式的，这意味着它只包含Lf字符，而不包含CrLf。（我以前也曾单独遇到过Cr。）

如果是这种情况，那么您只需要首先转换换行符。我通常在这样拆分时将所有内容转换为单个Lf字符

Dim sLines() As String
Dim sTemp As String
sTemp = Replace$(Text1.Text, vbCrLf, vbLf)  ' Convert CrLf combinations to Lf only
sTemp = Replace$(sTemp, vbCr, vbLf)         ' Convert any remaining Cr's to Lf's
sLines = Split(sTemp, vbLf)                 ' Spilt on Lf instead of CrLf

---

在

@

上，在

vbCrLf

上。在

@

上拆分，然后当您设置值时，循环数组并将

@

添加回

sLines=Mid$（替换$（Tex1.Text，“@”，vbCrLf+”），3）

快速且肮脏的方式，因为您需要检查Text1.Text是否为空，

sLines = Split(Text1.Text, " ")

Dim sLines() As String
Dim sTemp As String
sTemp = Replace$(Text1.Text, vbCrLf, vbLf)  ' Convert CrLf combinations to Lf only
sTemp = Replace$(sTemp, vbCr, vbLf)         ' Convert any remaining Cr's to Lf's
sLines = Split(sTemp, vbLf)                 ' Spilt on Lf instead of CrLf