Doubling the letters / numbers

[dahid84 5]

Hi, just creating emails but I have a small issue

 

example

 

I would like to create an email johnpicock@gmail.com but is busy ...

 

How am I supposed to do to bot doubled letters?

 

example

 

johnpicock@gmail.com --->

 

  jjohnpicock

  johnpiccock

  johnpiicock

  johnpicockk

  joohnppicock

 

the best way is doubled random letter

 

Edited October 11, 2013 by dahid84

[UBotDev 276]

I think the simplest way is to use "$find index" in combination with "$substring".

[dahid84 5]

its working but how to  double random letter/number

 

 

  add list to list(%login, $list from file("{$special folder("Application")}/loginy meskie.txt"), "Delete", "Global")
    set(#login, $random list item(%login), "Global")
    type text(<name="login">, $substring(#login, $find index(#login, #login), $text length(1)), "Standard")
    type text(<name="login">, #login, "Standard")
    wait(1)

[k1lv9h 76]

Hi,

 

This sample code should do it:

set(#emailstart, "johnpicock@gmail.com", "Global")
set(#emailstartlength, $text length(#emailstart), "Global")
set(#emailstartatloc, $find index(#emailstart, "@"), "Global")
set(#emailstartrandumloc, $rand(1, #emailstartatloc), "Global")
set(#emailstartdupchar, $substring(#emailstart, $subtract(#emailstartrandumloc, 1), 1), "Global")
set(#emailupdate, "{$substring(#emailstart, 0, #emailstartrandumloc)}{#emailstartdupchar}{$substring(#emailstart, #emailstartrandumloc, $subtract(#emailstartlength, #emailstartrandumloc))}", "Global")

sample-email-dup-char-002.ubot

 

Kevin

[dahid84 5]

Thank you very much beer for you

 

and if you can do the same thing tlyko for a single word? I wanted to change but did not go;/

 

example

 

johnpicock --->

 

   jjohnpicock

   johnpiccock

   johnpiicock

   johnpicockk

   joohnppicock

 

without @

[k1lv9h 76]

Hi,

 

This sample code should work with on character string without @:

set(#emailstart, "johnpicock", "Global")
set(#emailstartlength, $text length(#emailstart), "Global")
set(#emailstartrandumloc, $rand(1, #emailstartlength), "Global")
set(#emailstartdupchar, $substring(#emailstart, $subtract(#emailstartrandumloc, 1), 1), "Global")
set(#emailupdate, "{$substring(#emailstart, 0, #emailstartrandumloc)}{#emailstartdupchar}{$substring(#emailstart, #emailstartrandumloc, $subtract(#emailstartlength, #emailstartrandumloc))}", "Global")

sample-email-dup-char-003.ubot

 

Kevin

[dahid84 5]

This is a very welcome they are the people like Kevin in this forum! Who have no interest in devote his time to other  ​