UC知道.txt文本中的一行很长的长串数字如何变成一列?
来源：百度知道 编辑：UC知道 时间：2024/05/14 09:36:06
数字形式如下:
它原来在.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 谢谢您 !
它原来在.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
如果你输入的时候是没回车的话就可以，你只要把txt文件的自动换行去掉就会变很长很长