VisualFreeBasic代码_操作字符串部分文本

LCase 返回字符串的小写副本

Print LCase("AbCdEfG")
输出：abcdefg

UCase 返回字符串的大写副本

Print UCase("AbCdEfG")
将产生输出：ABCDEFG

InStr 查找字符串中第一个出现的子字符串或字符

从第1个字符查到最后1个字符

'它会返回4
Print InStr("abcdefg", "de")
'它将返回0
Print InStr("ABCDEFG", "h")
'它将搜索任何字符“f”，“b”，“c”，并返回2，首先遇到“b”
Print InStr("ABCDEFG", Any "FBCen")

InStrRev 查找字符串中子字符串或字符的最后一次出现

从最后1个字符反向查到第1个字符

'它会返回4
Print InStrRev("ABCdeFG", "de")
'它将返回0
Print InStrRev("ABCDEFG", "h")

Left 返回字符串的最左边的子串

Dim text As String = "你好，世界"
Print Left(text, 4)
将产生输出：你好
Dim text As wString *20 = "你好，世界"
Print Left(text, 4)
将产生输出：你好，世

Right 返回字符串的最右边的子串

Dim text As String = "你好，世界"
Print Right(text, 4)
将产生输出： 世界
Dim text as wstring * 20="你好，世界"
Print Right(text，4）        '显示“好，世界”

Mid (函数) 返回字符串的子字符串

Print Mid("ABCDEFG", 3, 2)    '从第3个字符开始，返回2个字符
Print Mid("ABCDEFG", 3)       '从第3个字符开始，一直到最后的字符
将产生输出：
CD
CDEFG

Mid (语句)用另一个字符串覆盖一个字符串的子字符串

Dim text As String
text = "abc 123"
Print text '显示“abc 123”
'用另一个字符串替换文本的一部分
Mid(text, 5, 3) = "456" 
Print text '显示“abc 456”

LSet 左对齐字符串

Dim buffer As String
buffer = Space(10)
LSet buffer, "91.5"
Print "-[" & buffer & "]-"

RSet 右对齐字符串

Dim buffer As String
buffer = Space(10)
RSet buffer, "91.5"
Print "-[" & buffer & "]-"

Trim 删除字符串左侧和右侧的周围的子字符串或字符

删除前后空格字符

   Dim s1 As String = "  卡在中间  "
   Print Trim(s1)  '得到一个前后没空格的字符

删除前后指定字符

Dim s1 As String = "...卡在中间 ..."
Print "'" + Trim(s1, Any ".") + "'"
Dim s2 As String = "BaaBaaaaB随着你aaBBaaBaa"
Print "'" + Trim(s2, "Ba") + "'"
Print "'" + Trim(s2, Any "aB") + "'"

LTrim 删除一个文本左边连续的子文本或字符

删除前面空格字符

   Dim s1 As String = "  卡在中间  "
   Print LTrim(s1)  '无前面空格的字符

删除指定字符

Dim s1 As String = "101事情要做"
Print "'" + LTrim(s1) + "'"
Print "'" + LTrim(s1, "01") + "'"
Print "'" + LTrim(s1, Any "01") + "'"

RTrim 删除字符串右侧的周围的子字符串或字符

删除后面空格字符

   Dim s1 As String = "  卡在中间  "
   Print RTrim(s1)  '无后面空格的字符

删除指定字符

Dim s1 As String = "文字10101"
Print "'" + RTrim(s1) + "'"
Print "'" + RTrim(s1, "01") + "'"
Print "'" + RTrim(s1, Any "10") + "'"