[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『CSV内の対象データを削除するバッチ』(サクマ)
以下の処理で良い方法があればご教授頂ければ幸いです。
サンプル.csv
<中身>
"会社C","会社名","氏名","氏名C","階数","区分","年月",
"2","サンプル会社","佐久間A太朗","11111","3F","出荷","2022/11",
"2","サンプル会社","佐久間B太朗","22222","4F","出荷","2022/11",
"2","サンプル会社","鈴木A太朗","12111","3F","出荷","2022/10",
"2","サンプル会社","佐藤A太朗","13111","3F","出荷","2022/12",
条件:
氏名列の”佐久間”を含む情報だけをCSVとして抽出
結果
"会社C","会社名","氏名","氏名C","階数","区分","年月",
"2","サンプル会社","佐久間A太朗","11111","3F","出荷","2022/11",
"2","サンプル会社","佐久間B太朗","22222","4F","出荷","2022/11",
このようなバッチを作成することは可能でしょうか。
何卒よろしくお願いいたします。
< 使用 Excel:Office365、使用 OS:Windows10 >
超テキトーですが... ^^;
Sub Test() Const FN_FROM As String = "C:\xxx\サンプル.csv" Const FN_TO As String = "C:\xxx\サンプル(1).csv" Dim fileIn As Object, fileOut As Object Dim aLine As String With CreateObject("Scripting.FileSystemObject") Set fileIn = .OpenTextFile(FN_FROM) Set fileOut = .CreateTextFile(FN_TO) Do If fileIn.AtEndOfStream Then Exit Do aLine = fileIn.ReadLine If fileIn.Line = 2 Then fileOut.WriteLine aLine If Split(aLine, ",")(2) Like "*佐久間*" Then fileOut.WriteLine aLine Loop fileIn.Close fileOut.Close End With End Sub
(白茶) 2022/12/01(木) 19:24:26
早速ご回答頂き誠にありがとうございました。
条件通りの結果が得られました。
これをもとに勉強してみようと思います。
(サクマ) 2022/12/02(金) 08:20:57
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.