長～いデータを切りたい

質問

テキストファイルで、
8431376116486164806468540980980604540684134540048604・・・
と何万桁という数値が並んだデータがあります。
これを
84313761
16486164
80646854
09809806
04540684
13454004　
8604・・・
と8桁×何万桁となるように改行するにはどうしたらいいのでしょうか？

回答No.7

nihonjinn · ベストアンサー

ワードで自動的に改行するマクロを作ってみました。(自動記録で作ってみました。）
(1)ワードを開く
(2)ツール→マクロ→「Visual Basic Editor」をクリック
(3)「Project(文書1)」の上で右クリック→挿入→標準モジュール
(4)開いたウィンドウに
Sub test1()
For I = 1 To 12000
Selection.MoveRight Unit:=wdCharacter, Count:=8
Selection.TypeParagraph
Next
End Sub
を貼り付けると準備完了です

数値をワードにコピーして先頭に入力カーソルを入れておきます。
ツール→マクロ→マクロの中に「test1」をクリックするとマクロが実行されます。
マクロの「12000」という数字は改行数になりますので適当に変えてもいいです。多いと時間がかかります。
(自動記録で作ってみました。）

回答No.6

shikisaito

私なら、正規表現が使用できるテキストエディタ（秀丸エディタ）を
使用します。

秀丸エディタでテキストファイルを開いて、
[検索]-[置換]で、[正規表現]をONにして、
[検索]に「.{8}」を、[置換]に「\0\n」を、
それぞれ入力して、[全置換]。それだけで済みます。

ちなみに、Wordであれば、
[編集]-[置換]で、[オプション]で[検索オプション]を表示させ、
[ワイルドカードを使用する]をONにして、
[検索する文字列]に「(?{8})」を、[置換後の文字列]に「\1^p」を、
それぞれ入力して、[すべて置換]。それだけで済みます。

なお、Excelで1つのセルに入力できる文字数の上限は32767文字です。

参考URL：

http://hide.maruo.co.jp/software/hidemaru.html

回答No.5

nihonjinn

すいませんNo3訂正です
「=mid($A$1,(row()-1)*8+1,8)」です
=がぬけていました

回答No.4

n-jun

テキストファイルを編集するために何を（Excel？VBS？等々）用いる
予定でしょうか？

回答No.3

nihonjinn

説明追加です。
(1)A1の書式設定の表示形式を「文字列」にしておく
　右クリック「セルの書式設定」の「表示形式」の「文字列」をクリックしておきます。
(2)A1に数値を貼り付ける
(3)B1にmid($A$1,(row()-1)*8+1,8)
　を貼り付けてフィルコピー
という作業が必要でした。

しかしエクセルを使う方法だと桁数が32,767までしかできないです。

回答No.2

kuma56

方法はいくつかあると思うけど、その一つとして・・・・
Excelを使いA1セルに基本の数字（8431376116486164806468540980980604540684134540048604・・・
）を入力しておく
A2セルにMID関数式（=MID(A1,9,1000000000)）を入力。
B2セルにLIFT関数式（=LEFT(A1,8)）を入力する。
A2:B2のコピーを取り、そのまま下方向に貼り付けていく。
B列のセルに、８桁づつ数字が表示されます。
A列は、頭から８桁切り取った基本の数になります。

回答No.1

nihonjinn

A1に数値があるとすると、B1に
=mid(A1,(row()-1)*8+1,8)
と入れて下にフィルコピーしてみてください。