help required, small project.

[4thstar]

hello.
I hope all is well.
I am looking for what may be a simple start to a program.
I would like 1 inputbox where i enter AMS program that creates a typo list from a given word or set of words.

theres a website here: http://web-professor.net/scripts/typo/
that offers a php script but if possible i would like to do the same thing in AMS.

theres also php source code but i havnt yet found this to work on my site.

its probably a simple solution , but i know little about php so converting the logic is beyond me at this time.

if anyone could advise.
Kind regards
carl

[Brett]

From looking at the PHP code, it would not be hard at all to translate that into AMS60 script. I don't have time to do it right now myself, but I wouldn't be surprised if someone here takes up that challenge.

[4thstar]

Many thanks.
well i am ok with other issues in AMS but its one of those things where from scratch i cant seem to get my head arround :)

I know nothing of php but do see that someone with a knowhow of AMS and PHP would be able to put the conversion accross with ease :)

I shall see what happens :)

Kind Regards
carl

[Brett]

OK, I took up the challenge just to show that AMS can handle the same sorts of stuff as PHP. Look at the attached project. The functions are in the Globals. The code that triggers it is in the On Click event.

For those of you who don't want to download: (NOTE: I know the code could be cleaned up a lot - I wanted to do it quickly)

Global functions:


table_keyboard = {}
-- top row
table_keyboard['1'] = {'2', 'q'};
table_keyboard['2'] = {'1', 'q', 'w', '3'};
table_keyboard['3'] = {'2', 'w', 'e', '4'};
table_keyboard['4'] = {'3', 'e', 'r', '5'};
table_keyboard['5'] = {'4', 'r', 't', '6'};
table_keyboard['6'] = {'5', 't', 'y', '7'};
table_keyboard['7'] = {'6', 'y', 'u', '8'};
table_keyboard['8'] = {'7', 'u', 'i', '9'};
table_keyboard['9'] = {'8', 'i', 'o', '0'};
table_keyboard['0'] = {'9', 'o', 'p', '-'};
table_keyboard['-'] = {'0', 'p'};
-- 2nd from top
table_keyboard['q'] = {'1', '2', 'w', 'a'};
table_keyboard['w'] = {'q', 'a', 's', 'e', '3', '2'};
table_keyboard['e'] = {'w', 's', 'd', 'r', '4', '3'};
table_keyboard['r'] = {'e', 'd', 'f', 't', '5', '4'};
table_keyboard['t'] = {'r', 'f', 'g', 'y', '6', '5'};
table_keyboard['y'] = {'t', 'g', 'h', 'u', '7', '6'};
table_keyboard['u'] = {'y', 'h', 'j', 'i', '8', '7'};
table_keyboard['i'] = {'u', 'j', 'k', 'o', '9', '8'};
table_keyboard['o'] = {'i', 'k', 'l', 'p', '0', '9'};
table_keyboard['p'] = {'o', 'l', '-', '0'};
-- home row
table_keyboard['a'] = {'z', 's' , 'w', 'q'};
table_keyboard['s'] = {'a', 'z', 'x', 'd', 'e', 'w'};
table_keyboard['d'] = {'s', 'x', 'c', 'f', 'r', 'e'};
table_keyboard['f'] = {'d', 'c', 'v', 'g', 't', 'r'};
table_keyboard['g'] = {'f', 'v', 'b', 'h', 'y', 't'};
table_keyboard['h'] = {'g', 'b', 'n', 'j', 'u', 'y'};
table_keyboard['j'] = {'h', 'n', 'm', 'k', 'i', 'u'};
table_keyboard['k'] = {'j', 'm', 'l', 'o', 'i'};
table_keyboard['l'] = {'k', 'p', 'o'};
-- bottom row
table_keyboard['z'] = {'x', 's', 'a'};
table_keyboard['x'] = {'z', 'c', 'd', 's'};
table_keyboard['c'] = {'x', 'v', 'f', 'd'};
table_keyboard['v'] = {'c', 'b', 'g', 'f'};
table_keyboard['b'] = {'v', 'n', 'h', 'g'};
table_keyboard['n'] = {'b', 'm', 'j', 'h'};
table_keyboard['m'] = {'n', 'k', 'j'};

function StringToTable(inputstring)
local tblReturn = {};

local length = String.Length(inputstring);

for i = 1, length do
tblReturn[i] = String.Mid(inputstring,i,1);
end

return tblReturn;
end

function TableToString(tableinput)
local strReturn = "";

for i, letter in tableinput do
strReturn = strReturn..letter;
end

return strReturn;
end

-- accepts a string
-- returns array of likely single "wrong key" typos
-- arrays contain only characters that are valid domain names
function getWrongKeyTypos( word )
word = String.Lower(word);
typos = {};
typos_index = 1;
length = String.Length( word );
-- check each character
for i = 1, length do
-- if character has replacements then create all replacements
char = String.Mid(word,i,1);
if( table_keyboard[char] ) then
for index, letter in table_keyboard[char] do
scratch = String.Left(word,i-1);
scratch = scratch..letter;
scratch = scratch..String.Right(word,length-i);

typos[typos_index] = scratch;
typos_index = typos_index + 1;
end
end -- if
end -- for

return typos;
end

-- accepts a string
-- returns array of likely single missed character typos
-- arrays contain only characters that are valid domain names
function getMissedCharTypos( word )
word = String.Lower(word);
typos = {};
typos_index = 1;
length = String.Length( word );

-- check each character
for i = 1, length do
local tempWord = String.Left(word,i-1);
tempWord = tempWord..String.Right(word,length-i);

typos[typos_index] = tempWord;
typos_index = typos_index + 1;
end

return typos;
end

-- accepts a string
-- returns array of likely transposed character typos
-- arrays contain only characters that are valid domain names
function getTransposedCharTypos( word )
word = String.Lower(word);
typos = {};
typos_index = 1;
length = String.Length( word );
-- check each character
for i = 1, length do
if( i ~= length )then
local tblWord = StringToTable(word);
local tempChar = tblWord[i];

tblWord[i] = tblWord[i+1];
tblWord[i+1] = tempChar;

local tempWord = TableToString(tblWord);

typos[typos_index] = tempWord;
typos_index = typos_index + 1;
end
end

return typos;
end

-- accepts a string
-- returns array of likely double entered character typos
-- arrays contain only characters that are valid domain names
function getDoubleCharTypos( word )
word = String.Lower(word);
typos = {};
typos_index = 1;
length = String.Length( word );

-- check each character
for i = 1, length do

local char = String.Mid(word,i,1);
local tempWord = String.Left(word,i);
tempWord = tempWord..char;
tempWord = tempWord..String.Right(word,length-i);

typos[typos_index] = tempWord;
typos_index = typos_index + 1;
end

return typos;
end


In the On Click of the button:




Input.SetText("Output","");

local strOutput = "";
local strTheWord = Input.GetText("Word");

-- Wrong Keystrike
strOutput = strOutput.."Wrong Keystrike:\r\n\r\n";
tblTypos = getWrongKeyTypos(strTheWord);
if(tblTypos)then
for i,word in tblTypos do
strOutput = strOutput..word;
strOutput = strOutput.."\r\n";
end
end

-- Missed Characters
strOutput = strOutput.."\r\nMissed Characters:\r\n\r\n";
tblTypos = getMissedCharTypos(strTheWord);
if(tblTypos)then
for i,word in tblTypos do
strOutput = strOutput..word;
strOutput = strOutput.."\r\n";
end
end

-- Single Transposed
strOutput = strOutput.."\r\nSingle Transposed Character:\r\n\r\n";
tblTypos = getTransposedCharTypos(strTheWord);
if(tblTypos)then
for i,word in tblTypos do
strOutput = strOutput..word;
strOutput = strOutput.."\r\n";
end
end

-- Double Character
strOutput = strOutput.."\r\nDouble Character:\r\n\r\n";
tblTypos = getDoubleCharTypos(strTheWord);
if(tblTypos)then
for i,word in tblTypos do
strOutput = strOutput..word;
strOutput = strOutput.."\r\n";
end
end


Input.SetText("Output",strOutput);

[4thstar]

Hey Bret.
Many thanks for your time on this , I think i have a mind block when it comes to php so get lost in it before i even start :)

The example you have given is fantastic for me :)

Many thanks
Kind Regards
Carl