REVO2700 SaveUTF8IntoJpnFolder @ W cAs4 as unicode text)
put
4` "MacOSX: Save into Japanese Folder U Osaka,Japanese U Lucida Grande U Geneva U Geneva U Osaka,Japanese U Lucida Grande,Japanese U Lucida Grande cREVGeneral
debugObjects breakpointconditions breakpoints breakpointstates stackfileversion 2.7 @ cREVGeneral
bookmarks handlerList scriptSelection char 1 to 0 prevHandler tempScript script
Field )` * : cREVGeneral revUniqueID
1100204243819 MacOSX eg,u(0g0Y
eg,0n000000k0
+0S0n000000eg,(UTF8)0gO[X0W0~0Y0
saveAsJpn ex oon mouseUp
saveJpnTxt 1
end mouseUp
on saveJpnTxt pFieldName
put uniDecode(the unicodeText of fld pFieldName, "UTF8") into tJpn
replace quote with "\" "e in tJpn
get the cAs1 of me & quote& quote & the cAs2 of me & \
quote& the cAs3 of me "e & the cAs4 of me & quote & tJpn "e& the cAs5 of me
do it as applescript
end saveJpnTxt
F cAs1 1set newSaveFile to (choose file name with prompt cAs2 as text default name cAs3 .txtcAs4 as text)
put cAs5
into theText
set fh to open for access newSaveFile with write permission
try
write theText to fh starting at 0
on error errMsg number ERRNO
close access fh
error "(" & ERRNO & ")" & errMsg
end try
close access fh
tell application "Finder" to update newSaveFile 6 eg,000000keg,0gO[X cREVGeneral scriptChecksum TtݒtJ) breakPoints handlerList mouseUp
saveJpnTxtscriptSelection char 375 to 374
bookmarks revUniqueID
1100206974213scripteditorvscroll 0scripteditorselection 359 prevHandler mouseUp tempScript script fon mouseUp
saveJpnTxt 1
end mouseUp
on saveJpnTxt pFieldName
put uniDecode(the unicodeText of fld pFieldName, "Japanese") into tJpn
replace quote with "'" in tJpn
get the cAs1 of me & quote& the cAs2J of me "e & the cAs3 of me & \
quote& the cAs4J of me "e & the cAs5 of me & quote & tJpn "e& the cAs6 of me
do it as applescript
end saveJpnTxt
Label Field
.T
cREVTable currentview 8Save a file by unicode name into an unicode name folder. cREVGeneral revUniqueID
1153832112825 9Save a file by unicode name into an unicode name folder.