結論

勘　違　い　で　す
日本語はLuaInterfaceでも使えました

先日出したあのソースは確かにCallで失敗していました
結局それは治りませんでしたがそんなことは良かったのです

LuaInterfaceで動いたからイイノデス！


LuaInterfaceで日本語を使う方法は簡単な事だった。

view plainprint?

1. '日本語を書き込むところの処理  
2.             If (System.IO.Directory.Exists(System.IO.Path.GetDirectoryName(_targetFullPass)) = True) Then  
3.                 System.IO.File.WriteAllText(_targetFullPass, Writestr, System.Text.Encoding.GetEncoding("shift_jis"))  
4.             Else  
5.                 Dim GrfPath As String = New System.IO.FileInfo(URLTextBox.Text).Directory.Name  
6.                 System.IO.Directory.CreateDirectory(_exeurl + "\scripts\GraphicScripts\" + GrfPath + "\")  
7.                 System.IO.File.WriteAllText(_targetFullPass, Writestr, System.Text.Encoding.GetEncoding("shift_jis"))  
8.             End If  

'日本語を書き込むところの処理
            If (System.IO.Directory.Exists(System.IO.Path.GetDirectoryName(_targetFullPass)) = True) Then
                System.IO.File.WriteAllText(_targetFullPass, Writestr, System.Text.Encoding.GetEncoding("shift_jis"))
            Else
                Dim GrfPath As String = New System.IO.FileInfo(URLTextBox.Text).Directory.Name
                System.IO.Directory.CreateDirectory(_exeurl + "\scripts\GraphicScripts\" + GrfPath + "\")
                System.IO.File.WriteAllText(_targetFullPass, Writestr, System.Text.Encoding.GetEncoding("shift_jis"))
            End If

まぁ説明もなしなんでどうかと思うんですが
ようは.GetEncoding("shift_jis")ですよ.GetEncoding("shift_jis")

前まで、ここの
.GetEncoding("shift_jis")
が
.GetEncoding("EUC_jp")
だったんですよねー

ﾆﾎﾁﾆﾋﾎﾘみたいな文字化けしてたんで
おかしいなーとか心の浅いところで思ってたんだけど
LuaInterfaceのせいにしてたよ俺

最低だ……

あ、ちなみに前にも書いたけど
LuaInterfaceでの記述はこんな感じね、
最新版じゃなくてちょっと古いやつを使っているよ

view plainprint?

1. '存在している場合  
2.             Dim L As New LuaInterface.Lua  
3.             'LUA読み取り  
4.             L.DoFile(full)  
5.             'LUAのGraphicSettingを格納  
6.             Dim func As LuaInterface.LuaFunction = L.GetFunction("GraphicSetting")  
7.             '関数呼び出し  
8.             Dim a = func.Call()  
9.             '関数の戻り値を格納  
10.             HelpTextBox.Text = a(0)  
11.             TypeComBox.SelectedIndex = a(1)  
12.             AllNumNmBox.Text = a(2)  
13.             XNumNmBox.Text = a(3)  
14.             YNumNmBox.Text = a(4)  
15.             XSizeNmBox.Text = a(5)  
16.             YSizeNmBox.Text = a(6)  

'存在している場合
            Dim L As New LuaInterface.Lua
            'LUA読み取り
            L.DoFile(full)
            'LUAのGraphicSettingを格納
            Dim func As LuaInterface.LuaFunction = L.GetFunction("GraphicSetting")
            '関数呼び出し
            Dim a = func.Call()
            '関数の戻り値を格納
            HelpTextBox.Text = a(0)
            TypeComBox.SelectedIndex = a(1)
            AllNumNmBox.Text = a(2)
            XNumNmBox.Text = a(3)
            YNumNmBox.Text = a(4)
            XSizeNmBox.Text = a(5)
            YSizeNmBox.Text = a(6)