有没有把多行TXT文本变成一行的方法？

Posted 2023-05-17

参考技术A 用Replace
Pioneer，步骤:
1.
ctrl-o打开文件
2.
ctrl-h打开Replace窗口，在Search
for
Pattern下填\n然后点击Replace即可。
下载地址:
http://www.mind-pioneer.com/replace/Download.html 参考技术B 直接在记事本里似乎不行。你可以把这个文档复制到Word里面，然后在Word的替换里面输入，替换内容填
^p
替换为这里就不用管，留空，然后全部替换。完后再复制回记事本里面。

.txt文本中的一行很长的长串数字如何变成一列?

数字形式如下:
它原来在.TXT文本中,现在想把它变成一列,以便导入电子表.

特别说明:(如果直接导入电子表,只出现在一个单元格中,而不是出现在一个单元格区域中,无法分列)

请热心朋友教教我, 非常感谢,俺急等着用 ! 再次谢谢 ,预祝您圣诞快乐,年年开心!
我在"完整的路径"中 输入: F:\狼群号码遗漏区段20081205-11.text 变成:
20001600033303401101102220211210260002402076610351003601017004332102000200000001506206014102122172021133030312140032518
(13)3440600001213425411010104301025131
(25)305071012424011122217610300710100443150002001
(10)21214050211910007124332
(15)01032140124114
(14)1216010332201310021533204600032541030238041500

我实际上想变成:
2
0
0
0
1
6
0
0
0
.
.
.
KENCHEF 您能否在QQ中教我一下 ? 我的QQ 575852438 谢谢您 !

补充: OK, 加你QQ说吧.

补充: 你好, 因为你的路径里面有中文, 请放到C:\你的文件,再打开就行了. 另外请记得处理之前把自己的文件先备份!! 一定要备份!

从"(数字)" 这个分段吗?
我帮你写了个脚本, 你把下面的脚本存为abc.vbs, 然后运行就可以了.

Dim fso
Dim fsr
Set fso = CreateObject("Scripting.FileSystemObject")

Dim path
path = InputBox("请输入文件的完整路径")
If Not fso.FileExists(path) Then
MsgBox "文件不存在"
Else
Set fsr = fso.OpenTextFile(path, 1)
Dim str
If Not fsr.AtEndOfStream Then
str = fsr.ReadAll
fsr.Close
Dim r
Set r = New RegExp
r.Pattern = "(\(\d+\))"
r.Global = True
str = r.Replace(str, vbCrLf & "$1")
Set fsr = fso.OpenTextFile(path, 2)
fsr.Write str
fsr.Close
Set fsr = Nothing
MsgBox "处理完成"
Else
MsgBox "文件是空的"
End If
End If
Set fso = Nothing 参考技术A 如果你输入的时候是没回车的话就可以，你只要把txt文件的自动换行去掉就会变很长很长。 参考技术B 从哪里分开啊？