Question

如何检查字符串是否以vbcrlf开始（或结束）？

我尝试过使用substring，但它似乎不起作用：

Dim s As String = ""
s &= vbCrLf & "Test"
If s.Substring(0, 1) = vbCrLf Then
    MsgBox("Yes")
End If

Answer 1

试试这个

StartsWith - 检查字符串的第一部分。

    Dim s As String = "vbCrLf bla bla bla"

    If s.StartsWith("vbCrLf") Then
        MsgBox("Yes")
    End If

EndsWith - 检查字符串的最后一个字符。

    Dim s As String = "bla bla bla vbCrLf"

    If s.EndsWith("vbCrLf") Then
        MsgBox("Yes")
    End If

Answer 2

如果您遇到这些问题，可以使用左（和右）代替 .StartsWith/.EndsWith。

Dim s As String
s = vbCrLf & "Test"
If Left(s, Len(vbCrLf)) = vbCrLf Then
    MsgBox("Yes")
End If

我能想到的用于确定一个字符串是否在任何地方包含另一个字符串的最简单的解决方案是使用 split 函数：

Dim s As String
Dim i As Integer
Dim v As Variant
s = vbCrLf & "Test"
i = Split(s, vbCrLf)
For Each item In i
    j = j + 1
Next item
If j > 1 or vbCrLf = "" Then
    MsgBox("Yes")
End If

Answer 3

我相信您在问是否有办法查看弦线是否以线制动器开头。 [换行返回]（vbLf）或[回车]（vbCr）。我使用Chr值来做到这一点。 Chr（13）为vbCr。 Chr（10）是vbLf。您可以使用Asc找出字符串的第一个Chr是什么。像这样的东西

Dim s As String = vbCr & "bla bla bla"

If Asc(s) = 13 Then
    MsgBox("s strats with a Carriage Return")
else If Asc(s) = 10 Then
    MsgBox("s strats with a Line Feed Return")
End If

检查字符串是否以vbcrlf开头或结尾

3 个答案: