add dots randomly to middle of string

[FlamingMacro 0]

Hello, everyone! I am a bit new to the Forums, but I have a little bit of experience with AutoIt3.

I have a small problem. I cannot figure out how I can add dots to the middle of a string randomly. (The dots shouldn't be next to eachother)

Example:

before: Pickle

after: Pi.ckle or P.ickle or Pi.ck.le, etc etc.

It would be nice if you tell me how this is done

Thanks,

FlamingMacro

[Tomb 3]

#Include <String.au3>

$Input = InputBox("Add Random Dots to String!!", "Enter a string")

If $Input <> "" Then
    $Length = StringLen($Input)
    $Random = Random(1, $Length, 1)
    $Result = _StringInsert($Input, ".", $Random)
    MsgBox(0, "", $Result)
Else
    MsgBox(0, "", "Invalid String")
EndIf

[FlamingMacro 0]

Thanks a lot!

Edited August 9, 2010 by FlamingMacro