请高手朋友帮忙！删除行号和换行符的问题，谢谢啦！！

scmydms · 发表于 2020-9-7 19:17

我的一个小米max2手机便签日记记录，一共有几年的了吧，最近打算整理一下用手机自带的备份选择了只备份便签，最后找到备份的便签文件弄电脑上，修改文件类型.bak为.txt后，可以用记事本打开可是全是乱码不认识，我又下载了小黑记事本用里面的转换编码为UTF-8才基本可以了，就是有行号和换行符，记录的日记也有重复，手动一个个的整理删除非常麻烦，请高手朋友帮忙要怎样使用什么宏代码之类的解决一下吧！！

谢谢啦！这个是粘贴到Word文档里又变成这样的了

日记便签粘贴件.zip (7.09 KB, 下载次数: 4) 小黑记事本打开是这样的，下面是截图：记事本打开转UTF-8切图.JPG

scmydms · 发表于 2020-9-7 20:22

补充一个整理好了后的Word文档日记需要的样式截图截图20200907201832611.jpg

scmydms · 发表于 2020-9-9 19:40

想用录制宏的办法也解决不了

413191246se · 发表于 2020-9-9 21:54

Sub aaaa()
Dim i As Paragraph
With ActiveDocument
With .Content.Find
.Execute "\(", , , 1, , , , , , "（", 2
.Execute "\)", , , 1, , , , , , "）", 2
.Execute "[^13^l]", , , 1, , , , , , "^p", 2
.Execute "020.", , , 0, , , , , , "^p^&", 2
.Execute "(。)*(^13)", , , 1, , , , , , "\1\2", 2
.Execute "(^13)(020)", , , 1, , , , , , "\12\2", 2
.Execute "(）)*(^13)", , , 1, , , , , , "\1\2", 2
End With
For Each i In .Paragraphs
If i.Range Like "!vnd*" Then i.Range.Delete
Next
With .Content
With .Find
.Execute "([!^13]@^13)\1", , , 1, , , , , , "\1", 2
.Execute "^p", , , 0, , , , , , "^p^p", 2
End With
Do While .Text Like "*" & vbCr & vbCr
.Characters.Last.Delete
Loop
End With
End With
End Sub

复制代码

scmydms · 发表于 2020-9-10 13:17

谢谢朋友

！！！，基本可以使用了，就是在实际使用中如果日记中间段落里加有括号内容的话，当天的日记就只能识别至括号为止了不完整，还有运行宏后每日的后面都有空行，用查找替换的方法也可以解决，能加一段代码直接删除空行就更好了！

413191246se · 发表于 2020-9-11 02:03

楼主，有空行是为了看得清晰，故意加的。如果不想要，可以将第 19 行代码屏蔽/注释/删除均可。

scmydms · 发表于 2020-9-11 11:34

413191246se 发表于 2020-9-11 02:03
楼主，有空行是为了看得清晰，故意加的。如果不想要，可以将第 19 行代码屏蔽/注释/删除均可。

谢谢朋友大半夜的朋友辛苦了

！！！！按照朋友说的注释掉第19行运行后多余的空行没有了，就是这个代码运行时，如果日记里有一天日记的中间内容有括号内容的话，就只能识别至那个位置就结束了，这一天的日记就不完全了，例如：2020.9.10 晴早上7:00分起来煮早饭吃后，中午买风油精（刷医保卡付款3块），吃过晚饭就休息了（午饭外卖-18.00元）。这一天的日记就只能识别至（刷医保卡付款3块）这个位置后面的当天记录就没有了。

413191246se · 发表于 2020-9-11 21:04

楼主，代码只针对你提供的附件有效；如果有新的日记，请再提供一下新附件，并且保留原稿不要删除。

scmydms · 发表于 2020-9-12 16:39

413191246se 发表于 2020-9-11 21:04
楼主，代码只针对你提供的附件有效；如果有新的日记，请再提供一下新附件，并且保留原稿不要删除。

添加了日记里面运行这个代码时有问题的一些日期，有的当天的记录中间有句号的话，当天的记录就只能识别至句号处;有的不知道什么原因根本不能识别这一天的;有的是如果中间有括号内容的话，当天的记录也识别至第一个括号处当天的日记就截止了.

A2020912日记便签粘贴件.zip (10.73 KB, 下载次数: 9)

wdpfox · 发表于 2020-9-12 22:15

本帖最后由 wdpfox 于 2020-9-12 22:17 编辑

提供一思路，提取符合条件的正文内容。而不是删除。

		自动登录	找回密码
密码			免费注册

[求助] 请高手朋友帮忙！删除行号和换行符的问题，谢谢啦！！

评分