『J-SH51アドレス帳入力支援マクロ』のクチコミ掲示板

[ｐａｆｕｐａｆｕ]

pafupafuです。毎度マイナーネタですみません。
携帯のアドレス帳へ入力ですが、恐ろしく速く入力可能な方がいらっしゃいますが、私は、あまり携帯でチマチマ入力するのには、慣れていません。
市販の携帯接続ツールで入力したり、旧機種から読み込んでサッと移し替えるのが、一般的ですが、J-SH51は、せっかくSDカードでパソコンと接続可能だし、アドレス帳はvCard形式に対応しています。
vCard形式には、Outlook Expressのアドレス帳からも出力できますが、必要のない入力項目があったりヨミガナが対応できていません。
そこで、サックリ、MIFES for Windows V6.0用のマクロを使って、J-SH51アドレス帳入力支援マクロを作成しました。
MIFES for Win 6.0をお持ちでない方は、以下のメガソフトのサイトから入手できる体験版で利用可能です。
http://www.megasoft.co.jp/mifes/mi6_reg_trial.html
下記のマクロを切り出して読み込んでから、マクロ(M)のファイル全体のコンパイル(F)を選択しカレントマクロの実行（R)をおこなってください。マクロが起動します。
作成したファイルは、address.vcfなどのファイル名で保存して、SDカードの
PRIVATE\SDJPHONE\ﾃﾞｰﾀﾌｫﾙﾀﾞ\etcフォルダにコピーします。
SH51に挿して、F85を押して[データフォルダ]の[メニュー]の[メモリカードの切り替え]SDカードのetcフォルダの中のaddress.vcfにカーソルを選択して、[メニュー]の[メモリダイヤルへ登録]を選んでください。これで登録されます。
たいしたマクロではありませんが、必要な方には、ちょっとだけ便利かなといった程度のものです。
尚、長文ですが、荒しではありません。^o^；
------以下マクロです。----これより下をvCARD.MACというファイルに切り出してください。
*VCARD vCARD for J-SH51

@7=1
newopen()
while 1
fep(1)
if input(@str1,"名前を入力してください") == -1 then exit()
if input(@str2,"ヨミガナを半角で入力してください") == -1 then exit()
printf("BEGIN:VCARD\n")
printf("VERSION:2.1\n")
printf("N;CHARSET=SHIFT_JIS:%s\n",@str1)
printf("SOUND;X-IRMC-N;CHARSET=SHIFT_JIS;ENCODING=QUOTED-PRINTABLE:")
@1 = 0
while @str2[@1]
printf("=%X",@str2[@1++])
wend

printf("\n")

fep(0)

:loop1
if input(@str3, "電話番号を入力してください") == -1 then exit()
strlist(@str7,"携帯","自宅","会社")
@2=listbox("電話番号の種類を指定してください",0,@str7)

switch @2
case 0
printf("TEL;CELL:%s\n",@str3)
break
case 1
printf("TEL;VOICE;HOME:%s\n",@str3)
break
case 2
printf("TEL;VOICE;WORK:%s\n",@str3)
break
default
break
endsw

if messagebox("他の電話番号は入力しませんね？", "問い合わせ", MB_YESNO | MB_ICONQUESTION) != IDYES
goto :loop1
endif

:loop2
if input(@str4,"メールアドレスを入力してください") == -1 then exit()
strlist(@str7,"携帯","インターネット")
@3=listbox("メールアドレスの種類を指定してください",0,@str7)


switch @3
case 0
printf("EMAIL;CELL:%s\n",@str4)
break
case 1
printf("EMAIL;INTERNET:%s\n",@str4)
break
default
break
endsw

if messagebox("他のメールアドレスは入力しませんね？", "問い合わせ", MB_YESNO | MB_ICONQUESTION) != IDYES
goto :loop2
endif
printf ("X-JPG-MDNO:%d\n",@7++)
printf("END:VCARD\n")
if messagebox("登録を続けますか？", "問い合わせ", MB_YESNO | MB_ICONQUESTION) == IDNO
goto :end
endif

wend
:end
exit()

書込番号：613608

[ｐａｆｕｐａｆｕ]

pafupafuです。自己レスです。
この掲示板の仕様で、12行目の下記の行が改行されていました。
printf("SOUND;X-IRMC-N;CHARSET=SHIFT_JIS;ENCODING=QUOTED-PRINTABLE:")
正しくは、ENCODING=QUOTED-とPRINTABLE:")を1行につなげてから
コンパイルしてください。

書込番号：613624

[pafupafu]

pafupafuです。
だれか、このマクロ使った方います〜？マイナーネタで恐縮ですが
なんか反応なのでいかがですか？

書込番号：616771