vbsでテキスト内の指定した日と、必要な情報を抜き出すプログラムが意図した動作になりません。する質問をすることでしか得られない、回答やアドバイスがある。15分調べてもわからないことは、質問しよう!質問するただいまの回答率89.64%トップVBScriptに関する質問VBScriptJavaScriptを有効にしてください初心者です。vbsでテキスト内の指定した日と、必要な情報を抜き出すプログラムが意図した動作になりません。質問のレベルが低く申し訳ございません。□やりたいことSamplehelpe.txtに記載された必要な情報を、日付を指定して、任意の文字列を出力したいと考えています。1100バイトの空き領域このような情報がほしい□現在の状況getlog.txt他の日付の情報も出力されてしまう。バイトの空き領域(サンプルは2日のみだが、本番ではいらない日の情報が5000行表示されてしまう。)以下が読み込む対象のテキストです。以下が作成中のプログラムです。InputBox("月日を入力してください。"正しい日付を入力してください。******************************************************objOut.CloseobjIn.Close長くなり申し訳ございませんが、指定した日のみ、必要な情報をテキストに出力するには、どのようにすればよろしいでしょうか。ご教授いただきたく存じます。attachmentクリップ0気になる質問をクリップするクリップした質問は、後からいつでもマイページで確認できます。クリップした質問に回答があった際、通知やメールを受け取ることができます。自分も答えを知りたい質問者以外のユーザにも役立つ評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。質問の評価を上げたことを取り消します低評価-評価を下げられる数の上限に達しました評価を下げることができません1日5回まで評価を下げられます1日に1ユーザに対して2回まで評価を下げられます質問の評価を下げるteratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。コメントをしてください。送信する質問の評価を下げる機能の利用条件この機能を利用するためには、以下の事項を行う必要があります。Then'tokyo及びosakaがTrueの場合だとすると、まずここが問題です。InstrはszBufferの中から見つけたdtmDateの文字の位置をかえしますが、その比較相手がTrue/Falseとなっており、なにを判別したいのかよくわからないことになっています。一つの問題が、「tokyo」や「osaka」、「個のディレクトリ」の文字を見つけたらすぐに(日付に関わらず)WriteLineしてしまっているところです。このため意図しない日付の情報でも関係なく出力されてしまっています。いうわけで、改善点は・日付の判定を正しく行う。・tokyo/osakaを見つけても日付を確認するまでは出力しない。(ディレクトリの文字を見つけた時点で対象日のtokyo/osakaなら出力する)の2つです。InputBox("月日を入力してください。"正しい日付を入力してください。評価が高い回答ほどページの上位に表示されます。remove低評価0回答の評価を下げる下記のような回答は推奨されていません。評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。10:02jawaさん大変ありがとうございます。いただきました以下のアドバイスにて、問題が解決いたしました。日付の判定を正しく行う。tokyo/osakaを見つけても日付を確認するまでは出力しない。(ディレクトリの文字を見つけた時点で対象日のtokyo/osakaなら出力する)の2つです。ありがとうございます。いただきました以下のアドバイスにて、問題が解決いたしました。日付の判定を正しく行う。tokyo/osakaを見つけても日付を確認するまでは出力しない。(ディレクトリの文字を見つけた時点で対象日のtokyo/osakaなら出力する)の2つです。Falseキャンセル完了するlink0入力した日付をCDate(strDate)しているのが原因と思います。CDateした結果を文字列にした場合、YYYY/MM/DDにはならないと思います。よって、Instrで比較している箇所の挙動がおかしくなっているのではないでしょうか。評価が高い回答ほどページの上位に表示されます。remove低評価0回答の評価を下げる下記のような回答は推奨されていません。評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。さん迅速にご回答いただきありがとうございます。出力結果は変わらない結果となりました。貴重な情報をいただき、ありがとうございます。迅速にご回答いただきありがとうございます。出力結果は変わらない結果となりました。貴重な情報をいただき、ありがとうございます。IF(書き込む箇所を間違えました。(書き込む箇所を間違えました。