WSH(・∀・)ｽﾚｯﾄﾞ! at TECHWSH(・∀・)ｽﾚｯﾄﾞ! - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞの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 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch