JisからShift-JISに変換するには?


MATSU  2004-11-13 02:16:53  No: 117571

VB4でJisからShift-JISへ相互変換したいのですが教えていただけないでしょうか。

↓ここは見ています。
http://madia.world.coocan.jp/vb/vb_bbs2/200401_04010054.html

上記の過去ログはVB6での方法ですが、VB4で同じ方法でやろうとするとエラーになってしまいます。
例えばVB4では Stm.Open の引数が必須になっていますが、何をセットすればよいのかわかりません。 引数(Source,Mode,Options,UserName,PassWord)

何をセットすればよいか教えていただけないでしょうか。
または、別の方法があれば教えてください。

よろしくお願いします。


魔界の仮面弁士  2004-11-15 19:02:05  No: 117572

> 例えばVB4では Stm.Open の引数が必須になっていますが
VB4にてADOを使った事はありませんが…Optionalな引数が
必須項目になってしまうのですか? それは初耳です。φ(.. )

今回の場合、参照設定せずに、
  Dim Stm As Object
  Set Stm = CreateObject("ADODB.Stream")
  Stm.Type = 2
  Stm.Charset = "iso-2022-jp"
  Stm.Open
  Stm.LoadFromFile "C:\JIS.TXT"
  Dim B() As Byte
  Stm.Position = 0
  Stm.Type = 1
  B = Stm.Read()
だとどうでしょうか? 試していないので、保証はできませんけれども。

> Source,Mode,Options,UserName,PassWord
無理に全ての引数を渡すなら、こうなるのかな…? (未確認)
Stm.Open Array(, 1)(0), 0, adOpenStreamUnspecified, Empty, Empty


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加