dotNETportal.cz

Dobrý den,

mohl byste mi někdo poradit jak rozdělit slovo na jednotlivé znaky? Potřeboval bych aby se slovo v textovém poli rozdělilo na jednotlivé znaky do pole.

Nevím, jestli jsem Tě dobře pochopil. Ale String je sám o sobě pole znaků. Můžeš použít String funkce.

Mid$(nějaký String, startovní pozice-index, počet znaků)

znaky = Mid$("Pokémon", 3, 1) 'znaky = "é"

znaky = Mid$("Pokémon", 3, 4) 'znaky = "émon"

Pokud ještě potřebuješ znát počet znaků danéhé slova, tak funkce Len(), na editaci Replace()

Zdravím,

proměnná String má již zabudovanou funkci ToArray()

Příklad:

        Dim retezec As String = "slovo"
        Dim pismena As Char() = retezec.ToArray

Netýka sa to náhodou len VB.NET ?

čo takto?

for each pismeno as string in slovo
textbox1.appendtext(pismeno & vbcrlf)
next

private void butT1_Click(object sender, EventArgs e)

{

rtbVýpis.Text = "Výpis pomocí for";

for (int i = 0; i < tbText.Text.Length; i++)

{

char t = tbText.Text[i];

string s = tbText.Text.Substring(i, 1);

rtbVýpis.Text += $@"

{i+1} - {t} ({(int)t})";

}

}

private void butT2_Click(object sender, EventArgs e)

{

rtbVýpis.Text = "Výpis pomocí foreach i++";

int i = 1;

foreach (var t in tbText.Text)

this.rtbVýpis.Text += $@"

{i++} - {t} ({(int)t})";

}

}

private void butT3_Click(object sender, EventArgs e)

{

this.rtbVýpis.Text = "Výpis pomocí foreach ++i";

int i = 0;

foreach (var t in this.tbText.Text)

this.rtbVýpis.Text += $@"

{++i} - {t} ({(int)t})";

}

}