WSH(・∀・)ｽﾚｯﾄﾞ! at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
300:デフォルトの名無しさん 05/09/12 22:31:35 落ちたみたいね 301:デフォルトの名無しさん 05/09/13 00:27:09 おいっす。了解っす。 302:1/2 05/09/15 23:43:08 どなたかお知恵をお貸しください。 あるテーブルの抽出結果を、ADODB.Recordset.GetStringで文字列にする関数 strResults を、 VBSから呼び出してテキストファイルに保存しようとしました。 Dim sFS, strParam, oTS, strResultText, intResultLetters, i strParam = WScript.Arguments(0) strResultFName = WScript.Arguments(1) Set appAc = CreateObject("Access.Application") appAc.OpenCurrentDatabase "V:\・・・\GrepRecordsets.mdb" strResultText = appAc.Run("strResults", strParam) Set appAc = Nothing Set sFS = CreateObject("Scripting.FileSystemObject") Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True) oTS.WriteLine "MS Access ファイルからの検索結果" intResultLetters = Len(strResultText) For i=100 To intResultLetters Step 100　　　　　' デバッグのため分割して書き込む 　　　　MsgBox Left(strResultText,100)　 　 　 　 ' デバッグのための内容表示 　　　　oTS.Write Left(strResultText,100) 　　　　strResultText = Right(strResultText,intResultLetters - i) Next

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4305日前に更新/212 KB
担当:undef