テキストファイルの文字列操作

質問

改行やカンマで区切られていないテキストファイルがあります。（「-」は半角スペースと見てください。）
11111-----aaaaaaaa--22222222--55555555-- 44444444--・・・・
といったように、スペースを含む10バイトが1つのデータとなっています。最初の10バイトのデータは必ず内5バイトがスペース、そのあとのデータは2バイトがスペースという決まりがあり、かなりのデータ量があります。
これを
11111
aaaaaaaa
22222222
55555555
44444444
というふうにスペースは除き改行したいのです。
スペースの数が一定ではないので、置換できません。VBAなどでいい方法はありますか？

回答No.10

Gin_F

> やはりスペースが除かれた全てコードがExcelのA1のセルに1行で表示されただけでした。

> 11111-----aaaaaaaa--22222222--55555555-- 44444444--
上記データの、"-" 部分を半角スペースに置換してテストしてください。

Sub テストA()

　　Const strInData　　 As String _
　　　　= "11111　　 aaaaaaaa 22222222 55555555 44444444 "

　　Dim varData　　 As Variant
　　Dim lngIdx　　 As Long

　　varData = Split(strInData, " ", , vbTextCompare)
　　For lngIdx = LBound(varData) To UBound(varData)
　　　　If Len(Trim(varData(lngIdx))) > 0 Then
　　　　　　Debug.Print Trim(varData(lngIdx))
　　　　End If
　　Next lngIdx

End Sub

上記コードで確認した結果、イミディエイトウィンドウに

11111
aaaaaaaa
22222222
55555555
44444444
と表示されませんか？
＃Acc2000で確認しました。

回答No.9

Gin_F

> インデックスが有効範囲内にありません。とエラーが表示されます
> For i = 0 To 5

配列を使う場合＆要素数が確定できない場合は、

LBound,UBound
を使うといいですね。

imogasi さんのコードを拝借して。。

b = Split(a, " ")
For i = LBound(b) To UBound(b)
　　Cells(j, "a") = b(i)
　　j = j + 1
Next i

ではどうでしょうか？

補足

Gin_Fさん、エラーは出なかったんですが、やはりスペースが除かれた全てコードがExcelのA1のセルに1行で表示されただけでした。
なぜスペースが改行に変わらないのでしょう?またテキストファイルに反映はされないのでしょうか?

回答No.8

imogasi

#7です。
＞インデックスが有効範囲内にありません。とエラーが表示されます
For i = 0 To 5
の後のb(i)の要素数　i　が０から５が不適当であると言うエラーです。Ｓｐｌｉｔした結果５（６番目）がないということです。Ｓｐｌｉｔの区切り文字（２スペースで私はやりましたが、いろいろ試行して見てください。
また６項目の場合が０－５ですが、０－４にするとか
してやって見てください。テストデータ・本番データのデータの有り様と関連しますので、そのデータを見ないと正確には答えられませんが。私も試行錯誤して、私のテスト
データでは０－５で旨く行きました。

回答No.7

imogasi

Ｓｐｌｉｔ関数でやって見ました。必ず旨く行く自信はないが、他の方法として、下記コードの一部を細工すれば、必ずうまく行くと思う。（スペースでない文字の出現を
調べるとかすれば）
(テストデータ）
11111 aaaaaaaa 22222222 55555555 44444444
11111 aaaaaaaa 22222222 55555555 44444444
11111 aaaaaaaa 22222222 55555555 44444444
11111 aaaaaaaa 22222222 55555555 44444444
同じ内容なのは手抜きしただけで意味なし。
（コード）ＶＢＡまたはＶＢ。エクセルＶＢＡでやった。
Sub test01()
Open "c:\my documents\aa2.txt" For Input As #1
j = 1
While Not EOF(1)
Line Input #1, a
b = Split(a, " ") '２半角スペース
For i = 0 To 5
If Mid(b(i), 1, 2) = "" Then GoTo p01 '注
' MsgBox b(i)
Cells(j, "a") = b(i)
j = j + 1
p01:
Next i
Wend
Close #1
End Sub
(注）ここは=""（空白）とすべきか、=" "と１半角スペースとすべきか？私の例では=""で下記結果になった。
（結果）セルＡ１：Ａ２４
11111
aaaaaaaa
22222222
55555555
44444444
11111
aaaaaaaa
22222222
55555555
44444444
11111
aaaaaaaa
22222222
55555555
44444444
11111
aaaaaaaa
22222222
55555555
44444444
aaaaaaaa
22222222
55555555
44444444

補足

回答ありがとうございます。
開くファイルのパスを変更して、ExcelVBAで実行しましたが、インデックスが有効範囲内にありません。とエラーが表示されます。ExcelのA1のセルにスペースがなくなった状態のデータ全てが1行で書き出されてしまいました。
Win2000、OfficeXPを使用しています。

回答No.6

Gin_F

アプリや、バージョンが一切不明ですが。。

Split 関数で、分割してやればいいかと。
結果が配列となりますので、For Next でセルなりに書き込んでやれば
いいですね。

回答No.5

osamuy

10文字ずつよみとって、初回5文字、以降8文字だけ表示。
Cでプログラム書いたほうがてっとりばやいのですが、カテゴリが「Microsoftアプリケーション」という事で、Windows Scripting Host/JScriptで：

<job><script language="JScript">
var fname = WScript.Arguments.Item(0);
var fso = WScript.CreateObject( 'Scripting.FileSystemObject' );
var i = fso.OpenTextFile( fname )
var len_data = 5;
while ( !i.AtEndOfStream ){
WScript.Echo( i.Read( 10 ).substr( 0, len_data ) );
len_data = 8;
}
</script></job>

回答No.4

mshr1962

#1のmshr1962です。すみません。訂正します。
テキストファイルでしたね。#1はエクセルの場合です。
「VBAなどで」があったので間違えました。

まあ、エクセルで開いて行えば可能とは思いますが
#3の方の言われるように、別のソフトで置換した方が簡単だと思います。

回答No.3

schwarzes

正規表現が使用できるテキストエディタで、
1個以上のスペースを改行に置換すればいいと思うのですが？

自分はK2Editorを使用しています

参考URL：

http://web.kyoto-inet.or.jp/people/koyabu/

回答No.2

UKY

最初の区切りが5スペース、その後のすべての区切りが2スペースなんですよね?

"--" → "改行"
"---" → ""

この2回の置換でできませんか?

あるいは
"--" → "改行"
で1度置換した後、残った3スペースを手動で削除する方法もあります。

回答No.1

mshr1962

横方向なら「データ」「区切り位置」で「カンマや．．．」を選択して
「スペース」にチェックで
A____|B_______|C_______|D_______|E_______
11111|aaaaaaaa|22222222|55555555|44444444
の様に分解できます。
これを縦方向にする場合はコピーして、
「形式を選択して貼り付け」で「行と列を入れ替える」