Diskuze: Pomoc s kódem...

Vítězslav Skopal

Člen

Vítězslav Skopal:21.10.2018 22:22

Ahoj všem... Pomohl by mi někdo se snadnějším psaním kódu ve visual basic?
Píšu kód který má měnit text v textboxu podle kriterií. Nechce se mě psát neustále Textbox1.Text.Replace("11", "2") protože 1+1=2 jako další pravidlo je Textbox1.Text.Replace("12", "3") protože 1+2=3 dál to pokračuje ve stejném znění...
Chtěl bych to až do 8 místného čísla a je blbost psát každou variantu zvlášť. Neví někdo jak to napsat jednodužšeji?

Zkusil jsem:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With TextBox1
            .Text = .Text.Replace("a", "1")
            .Text = .Text.Replace("b", "2")
            .Text = .Text.Replace("c", "3")
            .Text = .Text.Replace("d", "4")
            .Text = .Text.Replace("e", "5")
            .Text = .Text.Replace("f", "6")
            .Text = .Text.Replace("g", "7")
            .Text = .Text.Replace("h", "8")
            .Text = .Text.Replace("i", "9")
            .Text = .Text.Replace("j", "1")
            .Text = .Text.Replace("k", "2")
            .Text = .Text.Replace("l", "3")
            .Text = .Text.Replace("m", "4")
            .Text = .Text.Replace("n", "5")
            .Text = .Text.Replace("o", "6")
            .Text = .Text.Replace("p", "7")
            .Text = .Text.Replace("q", "8")
            .Text = .Text.Replace("r", "9")
            .Text = .Text.Replace("s", "1")
            .Text = .Text.Replace("t", "2")
            .Text = .Text.Replace("u", "3")
            .Text = .Text.Replace("v", "4")
            .Text = .Text.Replace("w", "5")
            .Text = .Text.Replace("x", "6")
            .Text = .Text.Replace("y", "7")
            .Text = .Text.Replace("z", "8")
            .Text = .Text.Replace(" ", " - ")
            .Text = .Text.Replace("11", "2")
            .Text = .Text.Replace("12", "3")
            .Text = .Text.Replace("13", "4")
            .Text = .Text.Replace("14", "5")
            .Text = .Text.Replace("15", "6")
            .Text = .Text.Replace("16", "7")
            .Text = .Text.Replace("17", "8")
            .Text = .Text.Replace("18", "9")
            .Text = .Text.Replace("19", "1")
            .Text = .Text.Replace("20", "2")
            .Text = .Text.Replace("21", "3")
            .Text = .Text.Replace("22", "4")
            .Text = .Text.Replace("23", "5")
            .Text = .Text.Replace("24", "6")
            .Text = .Text.Replace("25", "7")
            .Text = .Text.Replace("26", "8")
            .Text = .Text.Replace("27", "9")
        End With
End Sub

Chci docílit: Jednodužšího kód.

Odpovědět

21.10.2018 22:22

Ondřej Šrytr

Člen

Ondřej Šrytr:21.10.2018 23:14

Ahoj,

ty čísla jsou nějak oddělená mezerou nebo čárkou?

Jako řešení bych to viděl tak, že bych si vyhledal číslo v textovém poli a pomocí tohoto kódu provedl ciferný součet. Proměnná "s" představuje nalezené číslo.

Dim s As String = "11"
Dim soucet As Integer = 0

For Each c As Char In s
        soucet += Integer.Parse(c)
Next

TextBox1.Text = TextBox1.Text.Replace(s, soucet)

Nahoru Odpovědět

21.10.2018 23:14

Jan Procházka

Člen

Jan Procházka:22.10.2018 11:36

Co se týče ciferných součtů, tak Ondřej už odpověděl

Co se týče písmen, tak Ti stačí daný znak přetypovat z char do int což Ti vrátí polohu (adresu) daného znaku v ASCII tabulce.

Dalším krokem je odečíst vhodné číslo tak, abys pro a dostal 0, b 1 atd.

Pak už jen spočítat modulo, tedy zbytek po dělení, devíti a k výsledku přičíst jedničku.

Tím jsi dostal první polovinu "tabulky" do jedné funkce.

Nahoru Odpovědět

22.10.2018 11:36

Vítězslav Skopal

Člen

Vítězslav Skopal:22.10.2018 11:45

Díky za reakce, nula nepřichází v úvahu. Je to aplikace na jednoduché dekódování textu kde a=1 b=2 c=3 atd...
Dále když je to celá věta s dlouhým textem tak to znamená že čísla se sečtou tak dokud nezůstane jen jednociferné číslo jako příklad text aabcd = 11234 = 1+1+2+3+4= 11 = 1+1 = 2 ... "2" Je výsledné číslo slova. Jako řešení bych nejspíše viděl odpověď Ondřeje.

Nahoru Odpovědět

22.10.2018 11:45

Peter Mlich

Člen

Peter Mlich:23.10.2018 10:57

A pro "aj" to bude 1+10 nebo 1+1+0 a nebo, jak mas tu puvodni tabulku 1+1?
Jestli to puvodni, tak bych pouzil podobny kod jako psal ondrej. Pseudokod nejak takto:

cyklus (vsechny znaky)
{
if (code>=65 && code<75) zapis(code - 64); // 65 ascii kod znaku pro 'A' http://www.asciitable.com/
if (code>=75 && code<85) zapis(code - 64 - 10); ...
}
soucet = 0;
cyklus (vsechny znaky)
{
if (code>=48 && code<=57) {soucet += code - 47;}
 else {zapis(soucet) + znak; soucet = 0;}
}
if (soucet>0) zapis(soucet);

Editováno 23.10.2018 10:59

Nahoru Odpovědět

23.10.2018 10:57

Vítězslav Skopal

Člen

Vítězslav Skopal:24.10.2018 9:56

Pro "aj" je to 1+1 tudíž 2...

Nahoru Odpovědět

24.10.2018 9:56

Jan Procházka

Člen

Jan Procházka:30.10.2018 9:52

Jestli s tou nulou narážíš na můj příspěvek, tak nehrozí, že by ta nula byla vrácená. Modulo vrací zbytek po celočíselném dělení, pro X modulo 9 to vrátí číslo od nuly do osmi. V dalším kroku je přičtení jedničky, takže výsledek je v rozsahu od jedné do devíti.

Celou větu můžeš jednoduše zpracovat rekurzivní funkcí.

Private Sub String zvejkej (String StaryRetezec)
// kod pro prevod StaryRetezec na NovyRetezec
if (NovyRetezec.length>1)
        NovyRetezec=zvejkej(NovyRetezec);
return NovyRetezec;

Nahoru Odpovědět

30.10.2018 9:52