Satrlar bilan ishlash

Module Dastur
    Sub Main()
        Dim shahar As String = "Namangan"

        Console.WriteLine(shahar.Length)
        Console.WriteLine(shahar.ToUpper())
        Console.WriteLine(shahar.ToLower())
        Console.WriteLine(shahar.Substring(0, 4))
        Console.WriteLine(shahar.Contains("man"))
        Console.WriteLine(shahar.IndexOf("man"))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim matn As String = "salom"
        matn.ToUpper()
        Console.WriteLine(matn)

        matn = matn.ToUpper()
        Console.WriteLine(matn)
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim kirish As String = "   Husanboy   "

        Console.WriteLine("[" & kirish & "]")
        Console.WriteLine("[" & kirish.Trim() & "]")
        Console.WriteLine("[" & kirish.TrimStart() & "]")
        Console.WriteLine("[" & kirish.TrimEnd() & "]")
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim jumla As String = "olma,anor,uzum,shaftoli"

        Dim mevalar() As String = jumla.Split(","c)
        Console.WriteLine(mevalar.Length)
        Console.WriteLine(mevalar(0))
        Console.WriteLine(mevalar(3))

        Console.WriteLine(String.Join(" | ", mevalar))
        Console.WriteLine(jumla.Replace(",", " va "))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim fayl As String = "hisobot.pdf"

        Console.WriteLine(fayl.StartsWith("hisobot"))
        Console.WriteLine(fayl.EndsWith(".pdf"))
        Console.WriteLine(fayl.EndsWith(".PDF"))
        Console.WriteLine(fayl.EndsWith(".PDF",
                          StringComparison.OrdinalIgnoreCase))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim ism As String = "Aziza"
        Dim ball As Double = 87.5
        Dim narx As Decimal = 1250000D

        Console.WriteLine($"{ism} - {ball} ball")
        Console.WriteLine($"{ball:F1} ball")
        Console.WriteLine($"{narx:N0} so'm")
        Console.WriteLine($"{0.875:P0}")
    End Sub
End Module

Module Dastur
    Sub Main()
        Console.WriteLine("Olma".PadRight(12) & "12000")
        Console.WriteLine("Anor".PadRight(12) & "18000")
        Console.WriteLine("Shaftoli".PadRight(12) & "9500")
        Console.WriteLine(New String("-"c, 20))
        Console.WriteLine("42".PadLeft(6, "0"c))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim soz As String = "dastur"
        Dim teskari As String = ""

        For Each harf As Char In soz
            teskari = harf & teskari
        Next

        Console.WriteLine(teskari)
        Console.WriteLine(soz(0))
        Console.WriteLine(soz(soz.Length - 1))
    End Sub
End Module

Imports System.Text

Module Dastur
    Sub Main()
        Dim quruvchi As New StringBuilder()

        For i As Integer = 1 To 5
            If i > 1 Then quruvchi.Append(" ")
            quruvchi.Append(i)
        Next

        quruvchi.AppendLine()
        quruvchi.Append("Tugadi")

        Console.WriteLine(quruvchi.ToString())
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim bosh As String = ""
        Dim boshliq As String = "   "
        Dim toliq As String = "matn"

        Console.WriteLine(String.IsNullOrEmpty(bosh))
        Console.WriteLine(String.IsNullOrEmpty(boshliq))
        Console.WriteLine(String.IsNullOrWhiteSpace(boshliq))
        Console.WriteLine(String.IsNullOrWhiteSpace(toliq))
    End Sub
End Module