#!/bin/sh
# MetaCard 2.4 stack
# The following is not ASCII text,
# so now would be a good time to q out of more
exec mc $0 "$@"
SaveIntoJpnFolder W "MacOSX: Save into Japanese Folder U Osaka,Japanese U Lucida Grande U Geneva U Geneva U Osaka,Japanese U Lucida Grande,Japanese cREVGeneral
debugObjects @ cREVGeneral
bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script
Field )` * : cREVGeneral revUniqueID
1100204243819 MacOSX eg,u(0g0Y
7eg,0n000000k0000000eg,0gO[X0W0~0Y0
6 --
-0000n0000000000ncAs2J0hcAs4J0k0
!
#
(
, SJIS0geg,0Qe00f0D0~0Y03
--
0_0`0W00000000o0
00000k]0Wf0H0j0D0h
O[X0g0M0~0[00
"ABCD"
saveAsJpn ex won 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
F cAs1 1set newSaveFile to (choose file name with prompt cAs3 as Unicode text default name cAs2J ,VKeLXgt@C̏ꏊɍ쐬܂BcAs5 as Unicode text)
put cAs4J ̖ݒ.txtcAs6
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 eg,000000keg,0gO[X cREVGeneral scriptChecksum TtݒtJ) handlerList mouseUp
saveJpnTxt breakPoints scriptSelection char 375 to 374 revUniqueID
1100206974213
bookmarks tempScript prevHandler mouseUpscript 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.