常用函数————字符串处理

Today, I learn about string type

like Upper string , lower string , get sub string, trim string ,compare string,
search string , reverse string and so on. let me show you achievement in the below

Module Module1

Sub Main()
    'Ucase   大写字符转换
    Console.WriteLine(UCase("csdn"))

    Dim Upper As String = "csdn"

    Console.WriteLine(Upper.ToUpper)

    Console.ReadLine()



    'Lcase   小写字符转换
    Console.WriteLine(LCase("CSDN"))

    Dim Lower As String = "CSDN"

    Console.WriteLine(Lower.ToLower)

    Console.ReadLine()

    '从左侧截取n个字符串

    Dim stringL As String = "ILoveShanghai"

    Dim subStringL As String = Left(stringL, 5)

    Console.WriteLine(subStringL)
    Console.ReadLine()

    '从右侧侧截取n个字符串

    Dim stringR As String = "ILoveShanghai"

    Dim subStringR As String = Right(stringR, 8)

    Console.WriteLine(subStringR)
    Console.ReadLine()

    '从字符串第n位截取L长度的字符串

    'tips:起始位置从1开始算而不是0

    Dim stringM As String = "ILoveShanghai"

    Dim subStringM As String = Mid(stringM, 6, 5)

    Console.WriteLine(subStringM)
    Console.ReadLine()


    '去掉字符串左边空格


    Dim stringLTrim As String = " ILoveShanghai "

    Dim subStringLTrim As String = LTrim(stringLTrim)

    Console.WriteLine(subStringLTrim)
    Console.ReadLine()


    '去掉字符串右边空格

    Dim stringRTrim As String = " ILoveShanghai "

    Dim subStringRTrim As String = RTrim(stringRTrim)

    Console.WriteLine(subStringRTrim)
    Console.ReadLine()

    '去掉字符串两边边空格

    Dim stringTrims As String = " ILoveShanghai "

    Dim subStringTrims As String = Trim(stringTrims)

    Console.WriteLine(subStringTrims)
    Console.ReadLine()

    'InStr([n]s1,s2[m])
    '返回字符串s2在字符串s1中的第一个匹配项的位置：如果s2在s1中找到
    '则返回1，否则返回0。其中n指定字符串匹配的起始位置，m指定字符串匹配的类型

    'tips:CompareMethod.Text 不区分大小写
    'tips:CompareMethod.Binary 区分大小写

    Dim stringInstr As String = "ILoveShanghai"

    Dim subStringInstr As Integer = InStr(1, stringInstr, "love", CompareMethod.Text)

    Console.WriteLine(subStringInstr.ToString)
    Console.ReadLine()


    'strComp(s1,s2,m)比较两个字符串大小 s1大于s2,返回1 相反返回-1 相同返回0
    'tips:CompareMethod.Text 不区分大小写
    'tips:CompareMethod.Binary 区分大小写
    Dim string1 As String = "ILoveShanghai"
    Dim string2 As String = "iloveshanghai"

    Dim stringComp As Integer = StrComp(string1, string2, CompareMethod.Binary)

    Console.WriteLine(stringComp.ToString)
    Console.ReadLine()


    '字符串长度
    Dim string3 As String = "ILoveShanghai"
    Console.WriteLine(Len(string3).ToString)
    Console.ReadLine()

    '相反字符串
    Dim string4 As String = "ILoveShanghai"
    Dim strReverse1 As String = StrReverse(string4)
    Console.WriteLine(strReverse1)
    Console.ReadLine()


End Sub

End Module