textbox & текст

[i'm pissed]

как переставить случайным образом буквы во всех словах тесктового документа или в textbox, оставив на своих местах первую и последнию букву слова.

[XairOn]

Вот так попробуй (правда не очень красиво получилось, но работает):

Код: Выделить всё

Option Explicit

Dim i As Byte, st As String, ls As String, fs As String

Private Sub Command1_Click()
Randomize
fs = Mid$(Text1.Text, 1, 1)
ls = Mid$(Text1.Text, Len(Text1.Text))
Text1.Text = Mid$(Text1.Text, 2, Len(Text1.Text) - 2)
Do While Len(Text1.Text) <> 0
DoEvents
i = Int(Rnd * Len(Text1.Text) + 1)
st = Mid$(Text1.Text, i, 1)
Text2.Text = Text2.Text & st
Text1.Text = Mid$(Text1.Text, 1, i - 1) & Mid$(Text1.Text, i + 1)
Loop
Text2.Text = fs & Text2.Text & ls
End Sub


И если не секрет - зачем это нужно???

P.S. Мой пример перемешивает все буквы кроме первой и последней, я толком не понял, что именно требовалось и сделал так, может нужно было, что бы перемешивались буквы в каждом слове отдельно, а первая и последняя буквы в этом слове оставались на месте?

[i'm pissed]

все эту ситуацию разрулил, а вот нужно было чтобы первую последнию букву оставляло на месте а остальное перемешивало

[XairOn]

Что-то я тебя не понимаю??? Я ведь так и сделал - первая и последняя на месте - остальные вперемешку!?!?!?

[i'm pissed]

а я разве чтото сказал что у тебя не так