68

view

VBScriptを作成しました。下記のコードをテキストファイルに貼り付けて、拡張子を「vbs」として保存してください。１９行目の「strFileName_After = "C:write.txt"」に処理後のファイルを出力するパスを指定してください。変更をしない場合は、Cドライブの直下に「write.txt」というファイルを出力します。処理をするたびにファイルに追記するようになっています。追記ではなくて、上書きにしたい場合は３２行目のSet objOutFile = objFileSys_After.OpenTextFile(strFileName_After,ForAppending,True)にある「ForAppending」を「ForWriting 」に変更してください。使い方クリップNOTEに溜めたデータを、何でもいいのでテキストファイルに貼り付けます。例）社名１番号１住所１社名２番号２住所２社名３番号３住所３そのファイルを「ファイル名.vbs」にドラッグ＆ドロップしてください。コード内の１９行目で指定したファイルに変換処理後の文字列が格納されます。エラーが出た場合は質問をリクエストして下さい。コードここから-----------------------------Option ExplicitOn Error Resume NextConst ForReading = 1 '読み込みConst ForWriting = 2 '書きこみ（上書きモード）Const ForAppending = 8 '書きこみ（追記モード）Dim objFileSys_BeforeDim objFileSys_AfterDim objInFileDim objOutFileDim intSepDim strScriptPathDim strFileName_BeforeDim strFileName_AfterDim strFilePathDim strRecordDim countDim i'編集後のファイルのパスを指定strFileName_After = "C:write.txt"'ドロップしたファイル名を取得strFileName_Before = Wscript.Arguments(0)'ファイルシステムオブジェクトの作成Set objFileSys_Before = CreateObject("Scripting.FileSystemObject")Set objFileSys_After = CreateObject("Scripting.FileSystemObject")'編集前ファイルのオープン(読み込みで開く)Set objInFile = objFileSys_Before.OpenTextFile(strFileName_Before,ForReading)'編集後ファイルのオープン(追記で開く)Set objOutFile = objFileSys_After.OpenTextFile(strFileName_After,ForAppending,True)'ファイルのオープンが成功のときはErr.Numberが0If Err.Number=0 Then 'ファイルの内容を全部読み終えるまでループ Do Until objInFile.AtEndOfStream = true count = count + 1 i = count Mod 3 Select Case i Case 1'社名 strRecord = strRecord & objInFile.ReadLine & " TEL:" Case 2'電話番具 strRecord = strRecord & objInFile.ReadLine & " " Case 0'住所 strRecord = strRecord & objInFile.ReadLine & "｜" End Select Loop objOutFile.WriteLine strRecord 'ファイルのクローズ objInFile.Close objOutFile.Close'ファイルのオープンが失敗(ファイル無し)のときはErr.Numberが0以外Else Wscript.Echo "エラー"End if'オブジェクトの破棄Set objFileSys = NothingSet objInFile = Nothingコードここまで---------------------------------------------------------------------------------２つ程質問があります。１つめクリップNOTEにはコピーしたものを「一括貼り付け」する機能があるみたいですが、データ収集の際にクリップNOTEの中に溜まっていく順番は毎回、「社名」「電話番号」「住所」「社名」「電話番号」「住所」という規則になっていて、これ以外のデータ（従業員数や役員数等）は溜まっていない状態ですか？溜まっていくデータの順番に規則性があり、余計なデータ無いのであれば簡単なスクリプトで出来ますので、データの規則を教えてください。２つめデータを収集するwebサイトはいつも同じサイトですか？それともgoogleなどで企業名を検索してヒットしたサイト、つまりいつも同じとは限らないですか？いつも同じであれば、サイトを教えて頂ければhtmlを解析して出来るかもしれません。何かしら守秘義務にあたるものがあるかもしれないので、サイト名を公開してもいいという自信が無い限りは公開しないでください。