当前位置:首页 > WPS表格 > 正文内容

VBA限制TXT文本每行字数长度,超出换行

达叔7个月前 (12-16)WPS表格308

有时候TXT中没有换行,然后就需要对TXT分行使用以下代码可对TXT进行分行,每行限制多少个字符,超出部分自动换行到下一行


Option Explicit
Const NUM = 1000
Sub test()
  Dim s, i
  Open ThisWorkbook.Path & "\text.txt" For Input As #1
  s = StrConv(InputB(LOF(1), 1), vbUnicode)
  Close #1
  Open ThisWorkbook.Path & "\output.txt" For Output As #1
  For i = 1 To Len(s) Step NUM: Print #1, Mid(s, i, NUM): Next
  Close #1
End Sub

以上代码只需要注意两个地方

Const NUM = 1000

1000为1000个字符后自动换行,每行1000字符


"\text.txt"

此为文本路径

版权声明:本文由WPS达师发布,如需转载请注明出处。