自動化ツールuwsc使いよ集まれ6at SOFTWARE
自動化ツールuwsc使いよ集まれ6 - 暇つぶし2ch760:名無しさん@お腹いっぱい。
11/06/04 13:49:07.48 hyDuayc40
ためしにバイナリコピーを書いてみた。

 adoS.LoadFromFile(GET_CUR_DIR + "\ReadMe.txt")
 adoS.CopyTo(adoD, -1)
 adoD.SaveToFile("copy.bin", 2 ) // adSaveCreateOverWrite

↑動く
↓動かない

 while ! adoS.EOS
  buf = CopyB("",0,0) // 本家からの引用で、文字コードをユニコードじゃなくANSIにする技。
               // buf = "" だとユニコード扱いらしい。
  for i = 1 to 512
   if adoS.EOS then break
   buf = buf + CopyB( adoS.Read(bufsize), 1, 1 )
   size = i
  next
  print size
  print buf
  adoD.Write(buf)    // そもそもCOMエラーで動かない。バリアント型に変換されないのか。
 wend
 adoD.SaveToFile("copy.bin", 2 )

UWSCがデータを触らないで済めば受け渡し自体は出来るんだよ。
型変換ができればいけそうな気はするんだけど
VARTYPE( 変数, [変換タイプ] ) とか書いてあるところがあったけどUWSCは対応してないみたいで



次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch