Navigace: Hlavní stránka -> BASIC -> 10 Znaky, texty ->10.06 Vynechání znaků a,A a zdvojení znaků b,B

MENU

10.06 Vynechání znaků a,A a zdvojení znaků b,B

Zadání:
Sestavte program, který vynechá ze zadaného řetězce všechny znaky a,A a zdvojí znaky b,B.
Řešení:
Program při řešení používá funkci Replace.
Module Module1

    Sub Main()

        Dim s As String

        Console.Write("Zadejte retezec: ")
        s = Console.ReadLine

        s = Replace(s, "a", "")
        s = Replace(s, "A", "")
        s = Replace(s, "b", "bb")
        s = Replace(s, "B", "BB")

        Console.WriteLine("Upraveny text: {0}", s)

        Console.ReadLine()

    End Sub

End Module
program ke stažení