その他プログラミング

[WWS2008][MysticSL]CGI練習その2

鶏唐揚 — Sat, 30 May 2009 03:01:00 GMT

本日は重力語翻訳を作りますｗ

重力語にも様々な方言があるのですが、
今回はカタカナの相違が激しいヂッハベ弁とします


'#!MSL.exe -h -e
#include [CGI.msm]
'/////標準入力定数/////
'///POST_DATA:POSTされたデータ(NullC区切り)
'///QUERY_STRING:アドレス付属データ(NullC区切り)
'///HTTP_COOKIE:クッキー
'/////標準出力はPrint命令を使用します。/////

    MysticCGI [False]
    GetData []
    
    '/////ここから開始/////
#method [gLangEnc, 2, *~gLangEnc]

String [postDat, retGLang]

    Print ["<html>\n"]
    Print ["<head><title></title></head>\n"]
    Print ["<body>\n"]
    
    SplitEx [postDat, POST_DATA, MSL.NullC]
    Replace [postDat, "text=", "", postDat]
    QueryDecode [postDat, postDat]
    
    Print ["<big><strong>"]
    Print ["重力語(ヂッハベ弁) 翻訳"]
    Print ["</strong></big><br />\n<br />\n"]
    
    //フォーム部
    Print ["<div>\n"]
    Print ["日本語を入力してください。\n"]
    Print ["<form method=\qPOST\q action=\qglang.mgi\q>\n"]
    Print ["<textarea name=\qtext\q rows=5 cols=32>\n"]
    Print [postDat]
    Print ["</textarea>\n"]
    Print ["<input type=\qsubmit\q value=\q翻訳\q>\n"]
    Print ["</form>\n"]
    Print ["</div>\n"]
    
    If [postDat <> ""]
        Print ["-----↓翻訳後↓-----<br /><br />\n"]
        
        //翻訳
        gLangEnc [postDat, retGLang]
        
        //改行をbrタグに変換
        Replace [retGLang, "\n", "<br />\n", retGLang]
        Print [retGLang + "\n"]
    End If
    
    Print ["</body>\n"]
    Print ["</html>"]
    
    Exit


//gLangEnc [日本語?, 重力語ヂッハベ弁]
*~gLangEnc
Integer [forI, binLen, strLen] As Local
Integer [binDat] As Local
String [srcStr, destStr] As Local

    //LenB命令はShift-JISでのサイズを返すので
    //文字コード変換前に取得
    LenB [strLen, Argument0]
    
    //Shift-JISに変換(末尾null必要)
    StrConv [srcStr, Argument0 + MSL.NullC, False]
    
    //確保
    BinaryAlloc [0, strLen + 1]
    
    //バイト配列に変換
    StringToBinary [0, srcStr]
    GetDataSize [0, binLen]
    
    //変換
    For [forI, 0, binLen, 1]
        BinaryGet [0, binDat, forI]
        If [binDat >= 0x41 && binDat <= 0x5A]
            BinaryPut [0, binDat + 0x20, forI]
        End If
    Next
    
    //文字列に戻す
    BinaryToString [0, destStr]
    StrConv [destStr, destStr, True]
    
    //句読点のみ正常に戻す
    Replace [destStr, "｜", "。", destStr]
    Replace [destStr, "∥", "、", destStr]
    
    //返却
    Argument1 = destStr
    
    MethodReturn

日本語入力してくれと言いますがひらがなは変化しません
あと長文は例によって応答遅めです。

重力語(ヂッハベ弁)簡易翻訳

[WWS2008][MysticSL]CGIに挑戦

鶏唐揚 — Sun, 17 May 2009 15:09:00 GMT

設定が悪かったのか相性が悪かったのかわかりませんが
IIS7.0 + MysticSLが動かなかったので急遽 AnHTTPD を導入…

MysticSLでCGI、といっても、
Print命令の出力先がブラウザになることと
POST、GETの受け取りができる・クエリデコード命令が使えるというだけで、
後はMysticSLそのもの。なのでCGIに特化したphpやperlに比べると
ひっじょーに面倒な記述となりますｗ


'#!MSL.exe -h -e
#include [CGI.msm]
'/////標準入力定数/////
'///POST_DATA:POSTされたデータ(NullC区切り)
'///QUERY_STRING:アドレス付属データ(NullC区切り)
'///HTTP_COOKIE:クッキー
'/////標準出力はPrint命令を使用します。/////
    MysticCGI [False]
    GetData []
    
    '/////ここから開始/////
    String [postDat]
    
    'HTMLタグ吐き出し開始
    Print ["<html>\n"]
    Print ["<head>\n<title>テストCGI</title>\n</head>\n"]
    Print ["<body>\n"]
    
    'POSTデータ整形
    SplitEx [postDat, POST_DATA, MSL.NullC]
    Replace [postDat, "input=", "", postDat]
    If [postDat == ""]
        '初期
        Print ["何か入力<br />\n"]
        Print ["<div>\n"]
        Print ["<form method=\qPOST\q action=\qtest.mgi\q>\n"]
        Print ["<input type=\qtext\q name=\qinput\q>\n"]
        Print ["<input type=\qsubmit\q value=\q送る\q>\n"]
        Print ["</form>\n"]
        Print ["</div>\n"]
    Else
        'POST
        QueryDecode [postDat, postDat]
        EscDecode [postDat, postDat]
        Print ["入力したデータは「" + postDat + "」\n"]
    End If
    
    Print ["</body>\n"]
    Print ["</html>"]

フォーム入力からMysticSLで書くとこんなにぐだぐだ…
あとやっぱり遅いです。

テストCGI

[SQLite][C#] SQLook途中

鶏唐揚 — Mon, 27 Apr 2009 01:17:00 GMT

土日も仕事で徹夜も万歳の日々。
ひさびさの休みですよ。

ふとSQLiteのフロントエンドっぽいものでも
作ろうかなと思った。

※LunaticRave2のDBを覗いてる

うーむ、日本語化けてるなぁ …どうすっべか。

#追記：他のサンプルDB読んだら普通に日本語出た。
　書き込み時の文字コード次第か…DataSetにぶち込んでるからエンコードできなくね？

[VB2003] 謎

鶏唐揚 — Thu, 25 Sep 2008 15:57:00 GMT

常駐アプリとして、2ヶ月前の日付名なフォルダ("20080701"等)を削除るものが
稼働中ですが時折「フォルダが見つからない」ログが吐かれている…
フォルダが存在するのにDirectory.Existで未存在と判定されるパターンは

　・隠しフォルダ
　・ネットワークパス上で、権限なし

くらいしか思いつかないんだけどどちらも現状に当てはまらない…謎

[VS2008] ねんがんの VS2008をてにいれたぞ

鶏唐揚 — Fri, 18 Jul 2008 21:55:00 GMT

　　そうかんけいないね
ﾆｱころしてでもうば（ｒｙ

でもその前に資料作らないとあばばば。
おあづけちう。

[VS2008] 大失態

鶏唐揚 — Wed, 16 Jul 2008 13:00:00 GMT

注文してから気づいたけど。

VSTOってMSOfficeインストールされてないとダメじゃんｗｗｗ
アウト路線志向な私がMSO2007買うのは屈辱…ｗ
というかMSO2003ってもう売ってないのかな。

[VS2008] 今買い？

鶏唐揚 — Mon, 14 Jul 2008 21:38:00 GMT

『あんた程度の技術ならExpressで十分やｗｗｗｗ』

はい、ごもっともです。

VS2008はロクに調べてないんですが、ターゲットフレームワークに2.0を
指定してもVS2005互換の保証はあまり取れないんでしたっけ。
VS2005Express消してVS2008に統一しようかなと思ったんですがどないなもんでしょ。

追記。
普通のProfessionalより
with MSDN Professional Subscription 更新パッケージ
のほうが若干安い。
VS2008自体に変わりがない＆ライセンス的にも変わりがないならこっちのほうがいいのかなｗ

[VB2005]驚異（的な駄作）のソート・アルゴリズム

鶏唐揚 — Wed, 09 Jul 2008 15:02:00 GMT

師匠に「ところでみょんソートはまだですか？」と振られたので
やってみた。


Module MyonSort

    Sub Main()
        Const N  As Integer = 10
        Dim mind(N - 1) As Integer
        Dim rndmind As Random
        Dim forI As Integer
        
        '迷いまくりｗ
        rndmind = New Random()
        For forI = 0 To N - 1
            mind(forI) = rndmind.Next(0, 100)
            
            Console.WriteLine(mind(forI))
        Next
        
        Console.WriteLine("------------------------------")
        
        '斬る
        Call 心眼迷想斬(mind)
        
        For forI = 0 To N - 1
            Console.WriteLine(mind(forI))
        Next
        
        Console.WriteLine("------------------------------")
        Console.ReadKey()
    End Sub


    Public Sub 心眼迷想斬(ByRef minds() As Integer)
        Dim front() As Integer = Nothing
        Dim rear() As Integer = Nothing
        Dim base As Integer
        Dim forI As Integer
        
        If minds.Length = 2 Then
            If minds(1) < minds(0) Then
                Array.Reverse(minds)
            End If
        ElseIf minds.Length > 2 Then
            '平均値を基準とする
            base = Average(minds)
            
            '基準の前後に分割
            For forI = 0 To minds.Length - 1
                If minds(forI) <= base Then
                    If front Is Nothing Then
                        ReDim front(0)
                    Else
                        ReDim Preserve front(front.Length)
                    End If
                    front(front.Length - 1) = minds(forI)
                Else
                    If rear Is Nothing Then
                        ReDim rear(0)
                    Else
                        ReDim Preserve rear(rear.Length)
                    End If
                    rear(rear.Length - 1) = minds(forI)
                End If
            Next
            
            If rear Is Nothing Then
                '全部同じ値
                Exit Sub
            End If
            
            'さらに斬り分ける
            Call 心眼迷想斬(front)
            Call 心眼迷想斬(rear)
            
            'くっつける
            Array.Copy(front, 0, minds, 0, front.Length)
            Array.Copy(rear, 0, minds, front.Length, rear.Length)
        End If
    End Sub


    Public Function Average(ByVal DataArray() As Integer) As Integer
        Dim ArraySum As Integer
        Dim forI As Integer
        
        For forI = 0 To DataArray.Length - 1
            ArraySum += DataArray(forI)
        Next
        ArraySum \= DataArray.Length
        
        Return ArraySum
    End Function

End Module

なんだこれ

クイックソートと線形ソートの悪い部分をあわせて持ってる希ガス
配列内データが既にソート済みでも問答無用で斬殺してくので
ボゴソートほどではないにしても遅そう。
（配列内データが全て同じデータであれば多少速いｗ）

しかもお題である「みょん」が全然関係なくなってるし。
ソートを考えず「みょん」からアルゴリズムを捻り出して
結果的に中途半端。まだまだ修行が足りませんな私。

#勉強用としてはどないなもんでしょか？

[D言語/VB2005]ご協力お願いします

鶏唐揚 — Fri, 04 Jul 2008 11:26:00 GMT

IDEに要件ちゅいか

・エラーメッセージを日本語化

といっても翻訳とかコンパイラ改造とかではなく、
コンパイラ・リンカから受け取ったメッセージを置換にて
日本語化するつもりです。

で、エラー一覧みたいなのを探したのですが見つかりませんでした。
一覧が公開されている場所をご存知の方はお知らせください。
もしない場合、一人で全てのエラーメッセージを網羅するのは時間的に厳しいので
皆さんの目撃したエラーメッセージや、どうやったら出せるのか等
情報提供お待ちしています。

[D言語/VB2005]IDEイメージ

鶏唐揚 — Thu, 03 Jul 2008 23:37:00 GMT

IDEのメイン画面
※画面は開発中のものです。実際の画面とは~~大幅に~~異なります

あと前回の要件に追加。

・オートインデント
　→改行時の既存インデントの保持、{}によるインデント添削