Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
514 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11344】VBSでＣＳＶに条件をつけて書き込むとき VBA初心者 10/1/5(火) 17:39 質問[未読]
【11346】Re:VBSでＣＳＶに条件をつけて書き込むとき hatena 10/1/5(火) 22:05 回答[未読]
【11347】Re:VBSでＣＳＶに条件をつけて書き込むとき VBA初心者 10/1/6(水) 10:52 回答[未読]
【11356】Re:VBSでＣＳＶに条件をつけて書き込むとき hatena 10/1/6(水) 21:26 回答[未読]
【11359】Re:VBSでＣＳＶに条件をつけて書き込むとき ＶＢＡ初心者 10/1/7(木) 11:56 お礼[未読]
【11344】VBSでＣＳＶに条件をつけて書き込むとき
質問  VBA初心者  - 10/1/5(火) 17:39 -
引用なし
パスワード
   こんにちは。
　参考にしているVBSで処理の意味がわからないものが
あり、ご教授を願いたくご連絡致しました。


　　　　　　　　strLine = ""
　　　　　　　　For i = 0 To ABCRS.Fields.Count - 1
　　　　　　　　　　　　
　　　　　　　　　　　　'-- 改行コードは削除する
　　　　　　　　　　　　strVALUE = Trim(QawRS.Fields(i))
　　　　　　　　　　　　strVALUE = Replace(strVALUE, VbCr, "")
　　　　　　　　　　　　strVALUE = Replace(strVALUE, VbLf, "")
　　　　　　　　　　　　
　　　　　　　　If strLine <> "" Then strLine = strLine & Chr(9)
　　　　　　　　　　　　
　　　　　　　　　　　　strLine = strLine & strVALUE
　　　　　　　　Next

書き込むときにレコードのフィールドを削除して書き込むでいるみたい
ですがその他、タブ区切りをするみたいな記述が書かれているようですが、
よくわかりません。

どうかご教授をお願い致します。
【11346】Re:VBSでＣＳＶに条件をつけて書き込むと...
回答  hatena  - 10/1/5(火) 22:05 -
引用なし
パスワード
   >書き込むときにレコードのフィールドを削除して書き込むでいるみたい
>ですがその他、タブ区切りをするみたいな記述が書かれているようですが、
>よくわかりません。

フィールドは削除してません。
コメントにあるとおり、改行コードは削除してます。
あと、フィールド間にタブを挿入してますね。
【11347】Re:VBSでＣＳＶに条件をつけて書き込むと...
回答  VBA初心者  - 10/1/6(水) 10:52 -
引用なし
パスワード
   ご教授ありがとうございます。
>あと、フィールド間にタブを挿入してますね。

　If strLine <> "" Then strLine = strLine & Chr(9)
　　　　　　　strLine = strLine & strVALUE
　Next

上記の記述でフィールド毎にタブを挿入する意味を持つのでしょうか。
以上、ご教授をお願いします。


▼hatena さん：
>>書き込むときにレコードのフィールドを削除して書き込むでいるみたい
>>ですがその他、タブ区切りをするみたいな記述が書かれているようですが、
>>よくわかりません。
>
>フィールドは削除してません。
>コメントにあるとおり、改行コードは削除してます。
>あと、フィールド間にタブを挿入してますね。
【11356】Re:VBSでＣＳＶに条件をつけて書き込むと...
回答  hatena  - 10/1/6(水) 21:26 -
引用なし
パスワード
   >　If strLine <> "" Then strLine = strLine & Chr(9)
>　　　　　　　strLine = strLine & strVALUE
>　Next
>
>上記の記述でフィールド毎にタブを挿入する意味を持つのでしょうか。

はいそうです。タブの文字コードは 9 ですので、Chr(9) はタブになります。
【11359】Re:VBSでＣＳＶに条件をつけて書き込むと...
お礼  ＶＢＡ初心者  - 10/1/7(木) 11:56 -
引用なし
パスワード
   ▼hatena さん：

　こんにちわ。
ご回答有難うございます。
　大変助かりました。


>>　If strLine <> "" Then strLine = strLine & Chr(9)
>>　　　　　　　strLine = strLine & strVALUE
>>　Next
>>
>>上記の記述でフィールド毎にタブを挿入する意味を持つのでしょうか。
>
>はいそうです。タブの文字コードは 9 ですので、Chr(9) はタブになります。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
514 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078193
(SS)C-BOARD v3.8 is Free