改行されていないテキストデータ

質問

改行コードがないテキストデータがあります（半角23,250文字）
VB.NET2003で取込ながら、250文字で改行したいのですが、
どんな方法がありますでしょうか？

宜しくお願い致します。

回答No.2

K Kazz（@JazzCorp）

'ExcelVBAで、、、
Option Explicit
Dim buf As String
Public Sub OLFA()
'データは自分で仕込む！
Open "C:\temp\Data.txt" For Append As #1
buf = WorksheetFunction.Rept("123456789+", 1000) & "@@@"
Print #1, buf
Close #1

Open "C:\temp\Data.txt" For Input As #1
Do Until EOF(1)
Line Input #1, buf
Worksheets.Add before:=Worksheets(1)
Range("A1") = buf
Call Cutter
Loop
Close #1
MsgBox ("Done de Done !!")
End Sub

Function Cutter()
Const DivBy = 250
Dim xLen As Long
Dim kk As Long
Dim mm As Long
Dim nn As Long
xLen = Len(Range("A1"))
kk = Int(xLen / DivBy)
For mm = 1 To kk
Cells(mm + 1, "A") = Left(Mid(Range("A1"), DivBy * (mm - 1) + 1, DivBy * mm), DivBy)
Next
nn = xLen - DivBy * kk
If (nn > 0) Then
Cells(mm, "A") = Mid(Range("A1"), DivBy * kk + 1, nn)
End If
End Function

お礼

有難うございます。
参考にさせてもらいました！

回答No.1

notnot

http://www.atmarkit.co.jp/fdotnet/dotnettips/669bincopy/bincopy.html

とかを参考にして、250文字ずつ読めば良いかと思います。

お礼

有難うございます。
参考にさせてもらいました！