Embaralhando textos no .NET
VB.NET
24/07/2010 por
Jar Jar Binks
Scrambling texts...
Sei que você certamente já se perguntou "Como é que eu faço para embaralhar Palavras no .NET??"
Calma, agora seus problemas acabaram-se!!
Edotsus mrasotm que uma posesa naroml ceougnse itecdfaiinr um ttexo com as laters erbadalasham, ddese que as peairrims e úmatlis laters panaeeçrmm em sues ddoveis lruergas ...
Foi baseado nisso que eu fiz o programeta, cujo código vêocs podem conferir abaixo:
Private Function EmbaralhaFrase(ByVal frase As String) As String
Dim frs As String() = frase.Split(" ")
For i As Integer = 0 To frs.Length - 1
frs(i) = Embaralha(frs(i))
Next
Return Join(frs, " ")
End Function
Private Function Embaralha(ByVal palavra As String) As String
If palavra.Length > 2 Then
Dim Primeira As String = palavra.Substring(0, 1)
Dim Ultima As String = palavra.Substring(palavra.Length - 1, 1)
palavra = palavra.Substring(1, palavra.Length - 2)
Dim rnd As New Random()
For i As Integer = 0 To palavra.Length - 1
MoveCaracterPara(palavra, i, rnd.Next(0, palavra.Length - 1))
Next
palavra = Primeira & palavra & Ultima
End If
Return palavra
End Function
Private Sub MoveCaracterPara(ByRef val As String, ByVal posInicial As Integer, ByVal posFinal As Integer)
Dim strAMover = val.Substring(posInicial, 1)
val = val.Remove(posInicial, 1)
val = val.Insert(posFinal, strAMover)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.Text = embaralhafrase(TextBox1.Text)
Clipboard.SetText(Me.Text)
End Sub
Bnos cdógios praa vós
Kaboom!
Comentários sobre o artigo
24/07/2010
por
Bytte
Duvido que o Proteus faça isso!!! Kkkk!
26/07/2010
por
Clayton
Aquele lxio, certamente que não!
Poste um comentário >>
|