rem LXのAppointmentsとauケータイスケジュールのシンクロ
rem auのケータイW32TスケジュールバックアップからLXのAppointmentsへ登録
rem appointmentsデータをコピー
copy APPT.ADB APPTOLD.ADB
copy A:\_DAT\APPT.ADB
rem C:に置いたauケータイスケジュールバックアップデータをコピー
for %%F in (C:\SL__000*.VCS) DO copy %%F vcal.dat
rem appointmensのデータをCSVへ
apptout -a -x appt.adb >appt.csv
apptout -e -x appt.adb >>appt.csv
rem vCalendarのQUOTED-PRINTABLE複数行連結
perl catqp.pl vcal.dat >vcal.vcs
rem auケータイスケジュールバックアップデータをcsvに
perl vcal2csv.pl vcal.vcs >vcal.csv
rem 差分csv生成au vCalendar to LX
perl diffappt.pl appt.csv vcal.csv addlx.csv
rem 新adb生成
apptout -x appt.adb -i addlx.csv -o newappt.adb -a
rem シンクロ au vCalendar to LX
rem \_DATへコピー
echo APPT.ADBを更新します。
copy A:\_DAT\APPT.ADB A:\_DAT\APPTOLD.ADB
copy NEWAPPT.ADB A:\_DAT\APPT.ADB
rem シンクロ LX to au vCalendar
dayexec apptout -a -g/YYMM01/ -x appt.adb >appt.csv
dayexec apptout -e -g/YYMM01/ -x appt.adb >>appt.csv
rem 差分csv生成au LX to vCalendar
perl diffappt.pl vcal.csv appt.csv addau.csv
perl csv2vcal.pl addau.csv >addappt.vcs
rem perl csv2vsc.pl addau.csv
copy addappt.vcs c:\
echo auケータイになくてLXにある予定は以下の通りです。
type addau.csv
echo 必要があれば、c:\addappt.vcsをauケータイで取り込んで下さい。
バッチファイルはサンプルですので、各々の環境に応じて書換えてから利用します。