[已解决]谢谢zjdh 老师。断句修复

lhj323323 · 发表于 2011-10-14 23:07

本帖最后由 lhj323323 于 2011-10-15 21:13 编辑

老师：
放浪老师曾帮我写过一个从外部txt文档中提取数据，并将其断句给修复了，现在想进行修改。
即把存在断句的文字放在模板的[数据源]中，如何将断句修复后导入到[结果表]中？

最佳答案

月排行榜 / 总排行榜

zjdh

2011-10-15 20:23

本帖最后由 zjdh 于 2011-10-15 20:28 编辑

你那东西太那个了！

标点符号有全角的，半角的，
末尾有空格的，无空格的，
有大串空格的空行，有只有一个数字的.......情况多多！
总算搞定

只能顶格显示了：

断句修复.rar (29.43 KB, 下载次数: 7)

lhj323323 · 发表于 2011-10-15 11:51

回复 lhj323323 的帖子

向朋友们求助

zjdh · 发表于 2011-10-15 15:40

你先修复几段做个范例！

lhj323323 · 发表于 2011-10-15 15:44

回复 zjdh 的帖子

老师：
现附上示范了，请看看，

zjdh · 发表于 2011-10-15 16:48

示范中第4行末尾没有标点符号，符合要求？

lhj323323 · 发表于 2011-10-15 17:17

回复 zjdh 的帖子

哦，对不起，第四行未尾应接起来

马克思指出, 利息是贷出资本家从借入资本的资本家那里分割来的一部分剩余价值。剩余价值表现为利润, 因此, 利息量的多少取决于利润总额。利息率取决于平均利润率。“因为利息只是利润的一部分……所以, 利润本身就成为利息的最高界限, 达到这个最高界限, 归职能资本家的部分就会等于零。”① 利息也不可以为零, 否则借贷资本家就不会把资本贷出。因此, 利息率的变化范围是在零与平均利润率之间。当然, 并不排除利息率超出平均利润率或事实上成为负数的特殊情况。

lhj323323 · 发表于 2011-10-15 19:52

回复 lhj323323 的帖子

向朋友们求助

zjdh · 发表于 2011-10-15 20:19

Sub TEST()
ARR = Sheet2.Range("A1:A" & Sheet2.Range("A65536").End(3).Row)
N = UBound(ARR)
ReDim BRR(1 To UBound(ARR), 1 To 1)
T = 0
For I = 1 To UBound(ARR)
T = T + 1
BRR(T, 1) = LTrim(ARR(I, 1))
If Mid(ARR(I, 1), 4, 1) = "、" Then
GoTo 20
Else
10 E = Right(ARR(I, 1), 1)
If Len(ARR(I, 1)) <> 1 And E = " " Then
E = Mid(ARR(I, 1), Len(ARR(I, 1)) - 1, 1)
End If
If InStr("，。！”）：:,", E) Then
GoTo 20
Else
I = I + 1
BRR(T, 1) = BRR(T, 1) & LTrim(ARR(I, 1))
GoTo 10
End If
End If
20 Next
Sheet3.Range("A1").Resize(T, 1) = BRR
End Sub

复制代码

zjdh · 发表于 2011-10-15 20:23

本帖最后由 zjdh 于 2011-10-15 20:28 编辑

你那东西太那个了！

标点符号有全角的，半角的，
末尾有空格的，无空格的，
有大串空格的空行，有只有一个数字的.......情况多多！
总算搞定

只能顶格显示了：

断句修复.rar (29.43 KB, 下载次数: 7)

lhj323323 · 发表于 2011-10-15 21:12

回复 zjdh 的帖子

谢谢zjdh老师，
我一下午东拼西凑写了个天文数字般的程序，您的程序比我高明太多了。谢谢。

您提及的那些古怪的地方，都是从网页上取得的文字格式啊。

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