REVO2700 Untitled 3Pfunction countUnicodeLines @tdata put number of characters of tdata into tlength set useunicode to true put 1 into tlinecount repeat with i = 1 to tlength step 2 if chartonum(char i to i+1 of tdata) is 10 then add 1 to tlinecount end repeat return tlinecount end countUnicodeLines function UnicodeLineOffset @tdata,whichline put number of characters of tdata into tlength set useunicode to true put 1 into tlinecount put 1 into tlineoffset repeat with i = 1 to tlength step 2 if tlinecount is whichline then exit repeat if chartonum(char i to i+1 of tdata) is 10 then add 1 to tlinecount put i+2 into tlineoffset end if end repeat if whichline > tlinecount then put tlength + 1 into tlineoffset return tlineoffset end UnicodeLineOffset function unicodeLineNum pFldname put the unicodetext of fld pFldname into tUnicodeText return countUnicodeLines(tUnicodeText) end unicodeLineNum function unicodeThisLine pFldname, pStart put the unicodetext of fld pFldname into tUnicodeText put UnicodeLineOffset(tUnicodeText,pStart) into startchar put UnicodeLineOffset(tUnicodeText,pStart+1) - 1 into endchar return (char startchar to endchar of tUnicodeText) end unicodeThisLine function unicodeLineToLine pFldname, pStart, pEnd put the unicodetext of fld pFldname into tdata put UnicodeLineOffset(tdata,pStart) into startchar put UnicodeLineOffset(tdata,pEnd+1) - 1 into endchar return (char startchar to endchar of tdata) end unicodeLineToLine &LRussian UTF8 Table ULucida Grande,Japanese ULucida Grande UOsaka,Japanese U ,Japanese U ,Japanese ULucida Grande UOsaka,Japanese ULucida Grande,Japanese U Osaka,utf8 U,utf8 UGeneva ULucida Grande,Russian UOsaka,Russian cREVGeneralscriptChecksum#yF0{4y bookmarks handlerListTcountUnicodeLines UnicodeLineOffset unicodeLineNum unicodeThisLine unicodeLineToLinescriptSelectionchar 255 to 254 prevHandler tempScriptstackfileversionscript)

function countUnicodeLines @tdata

put number of characters of tdata into tlength

set useunicode to true

put 1 into tlinecount

repeat with i = 1 to tlength step 2

if chartonum(char i to i+1 of tdata) is 10 then add 1 to tlinecount

end repeat

return tlinecount

end countUnicodeLines

function UnicodeLineOffset @tdata,whichline

put number of characters of tdata into tlength

set useunicode to true

put 1 into tlinecount

put 1 into tlineoffset

repeat with i = 1 to tlength step 2

if tlinecount is whichline then exit repeat

if chartonum(char i to i+1 of tdata) is 10 then

add 1 to tlinecount

put i+2 into tlineoffset

end if

end repeat

if whichline > tlinecount then put tlength + 1 into tlineoffset

return tlineoffset

end UnicodeLineOffset

function unicodeLineNum pFldname

put the unicodetext of fld pFldname into tUnicodeText

return countUnicodeLines(tUnicodeText)

end unicodeLineNum

function unicodeThisLine pFldname, pStart

put the unicodetext of fld pFldname into tUnicodeText

put UnicodeLineOffset(tUnicodeText,pStart) into startchar

put UnicodeLineOffset(tUnicodeText,pStart+1) - 1 into endchar

return (char startchar to endchar of tUnicodeText)

end unicodeThisLine

function unicodeLineToLine pFldname, pStart, pEnd

put the unicodetext of fld pFldname into tdata

put UnicodeLineOffset(tdata,pStart) into startchar

put UnicodeLineOffset(tdata,pEnd+1) - 1 into endchar

return (char startchar to endchar of tdata)

end unicodeLineToLine

 @ jpTable)kLcCurrentObjectstack "Untitled 3"d cREVGeneral revUniqueID 1143933680947  W5@2>5 >1I5AB2> ?@>3@0<<=>9 2708<>?><>I8  V 7>340 O =0G8=0; @01>B0BL  6 G>1I5AB2> ?@>3@0<<=>9 2708<>?><>I8  F`J tInput)hv@cCurrentObjectstack "Untitled 3" cREVGeneral revUniqueID 1143933769316  Q5@2>5, >1I5AB2>, ?@>3@0<<=>9, 2708<>?><>I8         6  8 1>340, O, =0G8=0;, @01>B0BL            C>1I5AB2>, ?@>3@0<<=>9,,2708<>?><>I8      (  *`w>Buttonepon mouseUp get the unicodeText of fld "tInput" replace uniencode(comma) with uniencode(tab) in it set the textfont of fld "jpTable" to "Osaka,utf8" set the unicodeText of fld "jpTable" to it end mouseUp 6 Set Table cREVGeneralscriptChecksum$ :ih4 bookmarks revUniqueID 1143933802868 handlerListmouseUpscriptSelectionchar 212 to 211 prevHandlermouseUp tempScriptscript%

on mouseUp

get the unicodeText of fld "tInput"

replace uniencode(comma) with uniencode(tab) in it

set the textfont of fld "jpTable" to "Osaka,utf8"

set the unicodeText of fld "jpTable" to it

end mouseUp

 tReplace)hcCurrentObjectstack "Untitled 3" cREVTable currentview cREVGeneral revUniqueID 1143933822065  @01>B0BL   tCell)hcCurrentObjectstack "Untitled 3" cREVGeneral revUniqueID 1143933843213  2,2 Buttonepon mouseUp replaceCell jpTable, tReplace, tCell end mouseUp on replaceCell pTableField, pReplaceText, pCell repeat with i=1 to unicodeLineNum(pTableField) put urlEncode(unidecode(unicodeThisLine(pTableField,i), utf8)) &cr after tUrlTable end repeat replace urlEncode(tab) with comma in tUrlTable put item 1 of fld pCell into tColumn put item 2 of fld pCell into tRow put the num of items of line tRow of tUrlTable into tLastItem if tColumn = tLastItem then put urlEncode(unidecode(fld pReplaceText, utf8))&urlEncode(cr) into item tColumn of line tRow of tUrlTable else put urlEncode(unidecode(fld pReplaceText, utf8)) into item tColumn of line tRow of tUrlTable end if replace comma with urlEncode(tab) in tUrlTable repeat with i=1 to unicodeLineNum(pTableField) put urlDecode(line i of tUrlTable) after tNewTable end repeat set the unicodeText of fld "jpTable" to uniEncode(tNewTable,utf8) end replaceCell &D0 Change Cell cREVGeneralscriptChecksumuї SUΨ bookmarks revUniqueID 1143933855567 handlerListmouseUp replaceCellscriptSelectionchar 954 to 953 prevHandlermouseUp tempScriptscripts

on mouseUp

replaceCell jpTable, tReplace, tCell

end mouseUp

on replaceCell pTableField, pReplaceText, pCell

repeat with i=1 to unicodeLineNum(pTableField)

put urlEncode(unidecode(unicodeThisLine(pTableField,i), utf8)) &cr after tUrlTable

end repeat

replace urlEncode(tab) with comma in tUrlTable

put item 1 of fld pCell into tColumn

put item 2 of fld pCell into tRow

put the num of items of line tRow of tUrlTable into tLastItem

if tColumn = tLastItem then

put urlEncode(unidecode(fld pReplaceText, utf8))&urlEncode(cr) into item tColumn of line tRow of tUrlTable

else

put urlEncode(unidecode(fld pReplaceText, utf8)) into item tColumn of line tRow of tUrlTable

end if

replace comma with urlEncode(tab) in tUrlTable

repeat with i=1 to unicodeLineNum(pTableField)

put urlDecode(line i of tUrlTable) after tNewTable

end repeat

set the unicodeText of fld "jpTable" to uniEncode(tNewTable,utf8)

end replaceCell

 Label Field Td cREVTable currentview(

Word:

 cREVGeneral revUniqueID 1143939093512 Word:    Label Field  cREVTable currentview6

Cell (Column, row):

 cREVGeneral revUniqueID 1143939135407 Cell (Column, row):    Label Field <n cREVTable currentviewby Kenji Kojima : cREVGeneral revUniqueID 1143939481010 by Kenji Kojima :LineK cREVGeneral revUniqueID 1158669622616