2,20130201,"1","2","1111","現金",0,100,"タクシー" For Each strColumn In aryBuff Set beforeFile = fso.OpenTextFile("before.txt", 1) echo %mae% %ato% ←※ Dim strLine, strColumn ・使ったことはあるが一から基礎を学び直したい方, 「全くプログラムを知らない方でも、この入門書を読んだ後には、Windowsバッチファイルの中級者レベルになれるように」をコンセプトに執筆したものです。, この本を読めば、バッチファイルを使ったファイルやフォルダの操作に関しては一通りのことができるようになります。そうなればもう十分中級者と呼べるレベルですので、あとは自分のやりたいことを実現しようとする中で徐々に知識を蓄えていくだけですぐに上級者へなれるでしょう。. 現在は一旦TXT形式で保存し、ファイル名を直接「CSV」に変更しています。 By following users and tags, you can catch up information on technical fields that you are interested in as a whole, By "stocking" the articles you like, you can search right away. と置き換えられてecho文が実行されます。 どのようにすれば、タブ区切りという指定が出来て、Excellへ展開することが出来るのでしょうか?, Excelで開いた後で、CNTL+Aですべてを選択して、メニューのデータから区切り位置を選択、ウイザードで、区切り文字をタブに指定して完了, 「 , 」で区切られたCSVファイルの中で、「 , 」カンマを使いたいのですが、可能でしょうか? さらに、ログ速が使用不可能... 皇室ニュース菊の緞帳は、一体なんなんですか。あれはメディアなんですか?ただのブログなんですか?, グーグルアースはどうやってストリートビューを表示するんですか?グーグルマップは出来ますがグーグルアースはやり方がわかりません調べても中々出てきません, ビジターアンケートというものが アドバイス等ございましたらどうぞよろしくお願いします。, CSVではなくて、TSVですね。--拡張子は、txtでもよい。 strLine=beforeFile.ReadLine 後はご自由に タブコード(ASCIIコード:0x09)を"\t"で表記するのは、C言語等のプログラミング言語のソースファイル内での話です。 type nul >%fname% A B C..... hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので というのはいかがでしょうか?, A,B,C.....のような文字列がずらっと並んでいます。 実際の値、行数は違いますが、こんな感じに文字列が複数行並んでいます。 D: 4.変数Textを使用し色々処理をする 保存時に set文の右辺の各要素を分けて書くと for /f "tokens=1* delims=" %%a in ( org ) do (set line=%%a&& call :sub) 2,20130201,"1","2","1111","現金",0,100,"タクシー", vbsで ReDim Preserve aryColumns(i) 2,20130201,"1","2",...続きを読む, FileSystemObjectでは、文字エンコーディングの変換はできません。 ====================== 元のテキストファイルをワードパッドで開いてカンマ区切りし直して保存し、名前の変更でcsvに変更(拡張子が変更するとファイルが使用できなくなる可能性あり、というエラーは無視)したら読み込めるようにはなります。 エクセルやcsvは「数字」を「数値」として認識するため、先頭の0(ゼロ)が省略されます。また「1.10」が「1.1」のように小数点以下最終のゼロも省かれます。 ・データのプレビューから文字列へ変換す … 下記のように、前後どちらかに文字列があれば、引用符で括らなくても正常に出力されます。 'オブジェクトを解放 タブ区切りのテキストファイル→CSVファイルに変換 afterFile.Close 2.マクロを使えば自動化できます。 ※イメージ aryBuff = Split(strLine ...続きを読む, Worksheets("シート名").Activate みたいな感じでできませんか?, お願いします。 しかしカンマ区切りし直すというのは面倒です。, EXCELでそのファイルを開く、もしくはワードパッドからコピペ。たぶんA列にすべてのデータがあるでしょうからA列を選択して「データ」→「区切り位置」で現在の区切り文字もしくは固定長の場合は長さで区切る。ファイル名を指定して保存でCSV形式にして保存する。 Excelでやるなら、ファイル→名前をつけて保存→「ファイルの種類」をテキスト(Tab区切り)で保存する。 検索ディレクトリ、検索文字列(正規表現も可)、ファイル名(ワイルドカードで複数のファイルの検索も可)などをセットして検索できます。 %line:%(line: という環境変数の中身)→そんな変数は定義していないので空に置き換え set mae=abc 2  20130201  1 2 1111  現金  0  100  タクシー  Close #1 bbb=0 2.カンマで区切らずにタブで区切る。(比較的使われない文字ですが、やはりデータ中にタブがあるとカンマと同様です) ただし、echoコマンドを使ってタブコードを単独で出力させる場合、引用符(『'』または『"』)で括らないと『ECHO は です。』が表示されてしまいます。 テキストファイルをCSVファイルに変換するにはどうすればいいのでしょうか?エクセルでやって見たけど テキストファイルをCSVファイルに変換するにはどうすればいいのでしょうか?エクセルでやって見たけどできませんよろしくお願いします CSV … beforeFile.Close どうしたら繋がるようになりますでしょうか Set afterFile = fso.OpenTextFile("after.txt", 2, True) (参考にしたのはここです。http://www.fpcu.jp/dosvcmd/bbs/log/cat3/cat54/2-0391.html) そのソフトの操作方法も教えてくださると助かります。 データ作成側、受け取り側でそれぞれどこまで対応できるのか分かるともっと簡単かつ具体的な方法を回答できるかも知れません。, 秀丸エディタで、タブをカンマに置換したいのですが可能でしょうか。 echo %mae% %ato% ←※ FOR /L %%F IN (2,1,5) DO MORE +1 file%%F.csv >> fileX.csv Set objFSO = CreateObject("Scripting.FileSystemObject") "名前A","ナマエA","09011111111","aaa@docomo.ne.jp" 10割は100% Dim aryColumns(), aryBuff (12)と書かれた文字列がある行だけを抜きだしたり ====================== for f delims= %%a in (対象ファイルの名前.txt) do (, rem ドラッグ&ドロップで取得したパスからファイル名だけを変数「filename」に代入, for /f "delims=" %%a in (%filename%.txt) do (, rem 対象ファイル名リストの文字列ループ(ファイルから対象ファイル名を読み込む), for /f "delims=" %%a in (!filename!.txt) do (. set l=%line:%abc%=%xyz%% 333 ----- replace.vbs ----- ただし、echoコマンドを使ってタブコードを単独で出力させる場合、引用符(『'』または『"』)で括らないと『ECHO は です。』が表示されてしまいます。 Application.QuitをThisWorkBook.Closeの前にもってこないといけません。 ------------------- どなたかご教示お願い致します。, ヤフーショッピングで買い物したいのですが、全くつながりません。 del org ↑の『^I』の部分は、この回答欄やWindowsの『メモ帳』では、タブコード(0x09)がただの空白としてしか表示されないので、わかりやすくするために『^I』で置き換えてありますが、タブコードを明示できるテキストエディタなら、 Do While inStream.EOS = False 別に学歴なんて気にしてませんでしたし、そこそこ大きい企業に勤めて給料にも不満がありませんでしたし、私も働いていますし「専門技術だけで大きい企業に勤めるなんて凄... 先日、息子が彼女にプロポーズして、相手両親に挨拶に行きました。彼女は一人娘で、彼女の父親から、氏名だけでも彼女の姓を名乗ってもらえないかと言われたと息子より相談の連絡がありました。まだしっかりと話はしていないので、息子の考えや彼女の考えもわかりませんが、いずれこのような相談があるだろうと私自身前... 結婚したことを後悔しています。私と結婚した理由を旦那に聞いてみました。そしたら旦那が「顔がタイプだった。スタイルもドンピシャだった。あと性格も好み。」との事です。 '必要な情報を出力ストリームへ書き出す 222 set ato=xyz 変換イメージは下記の通りです。 Set afterFile = Nothing 例)echo 10割は100%% 1,20130201,"1","","8411","旅費交通費",100,0,"忠" 2と4は同じ動作ですので、行数のカウンタを設定しループさせる予定です。   Next Col よろしくお願いします, シティヘブンというネットに急に繋がらなくなりました echo "^I"  (タブコー...続きを読む, batファイルを作成していて、 難しいけれど完璧に対応するためには、データ中の区切り文字は特殊な文字列に変更し、受け取り側のアプリケーションではその特殊な文字列をデータ中の区切り文字として扱うという方法が使われます。