'mamimi ログを mbx 形式に変換 / ver. 0.50 / by Kabuneko 2000/07/17

proc main
    dim file1$, file2$, path$, line$, r
    dim header, year$, mon, mon$, day$, hour$
    'ここで mamimi のログフォルダの場所を指定
    const mamimilog$ = "e:\mamimi\log"
    'ここで EdMax / Becky のフォルダの場所を指定
    const mailerlog$ = "e:\edmax"
    file1$ = getfilename$(mamimilog$, "*.log", "mamimi ログファイル選択")
    file2$ = mid$(file1$, inrstr(file1$,"\")+1, inrstr(file1$,".") - \
        inrstr(file1$,"\")) + "mbx"
    path$ = mailerlog$ + "\"
    do while 1
        if dir$(path$ + file2$) <> "" then
            r = msgbox("保存先に同じ名前のファイルがあります。" + chr$(10) + \
                "上書きしてもいいですか？", MB_YESNO)
            if r = IDYES then exit do
            r = msgbox("べつのフォルダに保存しますか？", MB_YESNO)
            if r = IDNO then exit proc
            path$ = getfolder$("保存先フォルダ選択")
        else
            exit do
        end if
    loop
    open file1$ for input as #1
    open path$ + file2$ for output as #2
    do until eof(1)
        lineinput #1, line$
        if instr("SubFroDatNo:Web",left$(line$, 3)) then
            header = 1
            if left$(line$, 5) = "Date:" then
                header = 1
                year$ = mid$(line$, 6, 4)
                mon = val(mid$(line$,11, 2))
                mon$ = mid$("JanFebMarAprMayJunJulAugSepOctNovDec", mon*3-2, 3)
                day$ = mid$(line$, 14, 2)
                hour$ = mid$(line$, 17)
                line$ = "Date:" + day$ + " " + mon$ + " " + year$ + " " \
                    + hour$ + " +09:00"
            end if
        else
            if header = 1 then
                line$ = chr$(&h0D) + chr$(&h0A) + line$
                header = 0
            end if
        end if
        print #2, line$
    loop
    close #2
    close #1
    call msgbox("変換ファイルを " + path$ + file2$ + " として保存しました。")
end proc