テキストファイルの途中に改行を挿入するには？ (ID:117167)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 テキストファイルのヘッダっちゅーよりはＨＴＭＬやね。 nバイト目に改行コードをポロっと入れると、文字化けが起こる可能性が高いので、 n文字目に改行コードを入れることにしたほうがいいと思うぞ。 でも何がなんでもnバイト目に入れようとするなら… Private Sub Form_Load() Dim buf() As Byte Dim v As Variant buf = "abc" For Each v In buf: Debug.Print v;: Next: Debug.Print buf = addVBCRLF(buf, 1) For Each v In buf: Debug.Print v;: Next: Debug.Print Debug.Print "<" + CStr(buf) + ">" End Sub Public Function addVBCRLF(ByVal iString As String, ByVal nPosition As Long) As String addVBCRLF = LeftB$(iString, nPosition) + vbCrLf + RightB$(iString, LenB(iString) - nPosition) End Function コレで。