人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

数字が並んだテキストファイルがあるのですが、
数字の1文字ごとにカンマで区切るプログラムがありましたら、
大変申し訳ないのですが、
exeでファイルで読み取り、出力出来る形で頂けないでしょうか?

CSVファイルにして、1セル1数字のエクセルにしたいと思っています。

例:数字が並んだテキストファイル
01111111
01000001
01011101
01010101


(このファイルにしたい)
0,1,1,1,1,1,1,1
0,1,0,0,0,0,0,1
0,1,0,1,1,1,0,1
0,1,0,1,0,1,0,1

よろしくお願いします。

●質問者: hiyarihatto
●カテゴリ:コンピュータ インターネット
✍キーワード:CSV exe エクセル セル テキスト
○ 状態 :終了
└ 回答数 : 4/4件

▽最新の回答へ

1 ● hayate_007
●23ポイント

テキストエディタで

普通に正規表現を使用して 「0」 を 「0,」 で置換するのはまずいんでしょうか?

※数字の1文字を数字の1文字+カンマで置換する

「exeでファイルで読み取り、出力出来る形で」という部分がよくわからないのですが.


2 ● hayate_007
●23ポイント

コメントが付けられないので質問で補足します

自分の使っている下記のソフトを使った例であれば

Devas

http://www.vector.co.jp/magazine/softnews/030308/n0303083.html

※やり直しが聞くので愛用していますが合致部分が多いとそれなりに重いです

※データが数千とか数万の場合はやり直しが聞かない別のソフトをどうぞ

1.検索「¥d」→置換「¥0,」数字を数字+カンマに置換

2.検索「$,」→「」行末のカンマを削除

※¥と$は実際は小文字です.

正規表現も何種類か(?)あるようですが基本は一緒なので覚えておくと便利ですよ.


3 ● Mook
●22ポイント

目的が Excel に読み込むことでしたら、最初からEXCEL で処理をしたらどうでしょうか。


新しいシートタブで右クリックし「コードの表示」をクリックします。

表示されたウィンドウに下記をコピーします。


先頭の行のファイル名をデータのファイルパスに変更し、sepName にカーソルを置いてから、

F5を押してみてください。

Const fileName = "C:\data.txt"

Sub sepNum()
 Dim Lines, Ln
 With CreateObject("Scripting.FileSystemObject")
 Lines = Split(.OpenTextFile(fileName).ReadAll(), vbNewLine)
 End With
 
 Dim i As Long
 Dim j As Long
 j = 1
 For Each Ln In Lines
 For i = 1 To Len(Ln)
 Cells(j, i).Value = Mid(Ln, i, 1)
 Next
 j = j + 1
 Next
End Sub

不明な点はコメントにて対応しますので、有効にしてください。

◎質問者からの返答

ありがとうございました。感動しました。

助かりました。


4 ● a2gi
●22ポイント

Yahoo!ブリーフケース - 一覧表示

「chikan.zip」というファイルをダウンロードし解凍してください。コマンドラインで使うプログラムです。

コマンドプロンプトを起動し、cdコマンドを使い、解凍したフォルダへ移動してください。

(よく分からないときはDocument and Setting¥ログオンしているユーザー名の直下にchikan.zipを解凍してください)

使い方は「chikan 置換するファイル名(拡張子付きで) 置換したファイル名」と入力して実行してください。

例)test.txtをout.txtに置換して保存する

chikan test.txt out.txt

ただし、1行が500文字を超すと変換が出来ないと思います。

Excelだけでやるならテキストファイルの内容を全て選択してコピーをしてExcelに貼り付けて

貼り付けたときに右下に出るアイコンをクリックすると「テキストウィザードを使用する」というのを選択します。

そして、「スペースまたは・・・」という下の方にチェックを付けて「次へ」を押します。

そして、文字と文字の間をクリックすると線画はいるのでそこでセルごとに数値を区切ることが出来るので必要な数の区切りを入れれば

質問者さんのやりたいことは出来ます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ