Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Zmiana znaków na inne
anonim




Typ: Nie zarejestrowany
Zmiana znaków na inne

Chcę aby program zaminiał literę a na b, b na c itd.
Jak wpisze replace(text1.text, "a", "b"
a potem coś podobnego to zamienia mi tylko to co piszę w ostatnim replace. Jak zrobić, żeby zamieniał wszystkie literny na inne?

18-07-2004 21:36
  
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

moze tak ? :

Dim b As String
Dim a As Integer

b = Text1.Text
For a = 1 To Len(b)
    Mid(b, a, 1) = Chr$(Asc(Mid(b, a, 1)) + 1)
Next a
Text1.Text = b

19-07-2004 09:22
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1