１）まず最初にUTF8の確認
EncodeAntがとても優秀
https://www.laurenceanthony.net/software/encodeant/
２）とてもよかったプログラム
あいだに空行の設定も自由で感動的
https://www.vector.co.jp/soft/dl/winnt/util/se487714.html
でじままさんのメモ（とても便利、感謝）
バッチファイル、「all」名の からフォルダーを作っておくと、ファイル名順に結合してmerge名で収納 PCが実行を拒絶するときがあった。
copy *.csv all¥merge.csv
https://digimamalife.com/howto-merge-csv-files
きもとさんのメモ（なぜか、2重になってしまうことがある）
C:\Users\A\Desk top\abst 場所指定
abst>type *.txt > 結合結果.log
使いやすいが、2重になる時があった。
https://kimoto-sbd.co.jp/blog/2010/07/21806/
https://www.helpforest.com/excel/emv_sample/ex100007.htm
を参照すること。エクセルから個別シートへの書き出しに使用したマクロ
エクセルファイルは，B欄に通し番号，A欄を書き出す情報を入れる。この場合のマクロはSample 3を使用する。
結果：ドライブFのdataファイルの中のabstファイルに書き出される。＜感動＞
Cのdataのabstフォルダーにあるcsvファイル”MITLang.csv”を，1つずつtxtに書き出す場合（同じところに書き出される）
Sub kakidashi()
Dim R_data As Integer '行番号
Dim n As Integer '連番用
R_data = 1
n = 0
Do While Cells(R_data, 1) <> ""
Open "C:\data\abst\MITLang" & n & ".txt" For Output As #1
Print #1, Cells(R_data, 1)
Close #1
R_data = R_data + 1
n = n + 1
Loop
End Sub
＊＊＊＊＊
Sub Sample2()
Dim R_data As Integer '行番号
Dim n As Integer '連番用
R_data = 1
Do While Cells(R_data, 1) <> ""
n = FreeFile
Open "F:\data\abst\jp" & Cells(R_data, 2) & ".txt" For Output As #n
Print #n, Cells(R_data, 1)
R_data = R_data + 1
Close #n
Loop
End Sub
Sub Sample2()
Dim R_data As Integer '行番号
Dim n As Integer '連番用
R_data = 1
n = 0
Do While Cells(R_data, 1) <> ""
Open "F:\data\abst\chem" & n & ".txt" For Output As #1
Print #1, Cells(R_data, 1)
Close #1
R_data = R_data + 1
n = n + 1
Loop
End Sub