10.04 Vymazání přebytečných mezer v řetězci znaků
Zadání:
Sestavte program, který vymaže z textu přebytečné mezery.
Sestavte program, který vymaže z textu přebytečné mezery.
Řešení:
Program prochází pomocí cyklu DO ... LOOP WHILE zadaný text a hledá dvě mezery za sebou. Pokud je nalezne,
nahradí je jednou mezerou. Proměnná nahrazeno slouží k evidenci, zda text obsahuje ještě nějaké dvě mezery
za sebou. Pomocí této proměnné ukončíme cyklus.
Funkcí Trim odebereme mezery na začátku a konci textu.
Program prochází pomocí cyklu DO ... LOOP WHILE zadaný text a hledá dvě mezery za sebou. Pokud je nalezne,
nahradí je jednou mezerou. Proměnná nahrazeno slouží k evidenci, zda text obsahuje ještě nějaké dvě mezery
za sebou. Pomocí této proměnné ukončíme cyklus.
Funkcí Trim odebereme mezery na začátku a konci textu.
Module Module1
Sub Main()
Dim s As String
Dim nahrazeno As Boolean
Console.Write("Zadejte text: ")
s = Console.ReadLine
Do
nahrazeno = False
If InStr(s, " ") <> 0 Then
s = Replace(s, " ", " ")
nahrazeno = True
End If
Loop While nahrazeno <> False
s = Trim(s)
Console.WriteLine("Upraveny retezec: {0}", s)
Console.ReadLine()
End Sub
End Module
program ke stažení