|
5楼

楼主 |
发表于 2010-5-6 21:59:55
|
只看该作者
来自:广东
原帖由 初夏念羞/’ 于 2010-5-6 21:52 发表 
太强大了啊!搞那么多句号
句号没有什么,我刚才就用VB写一个添加句号程序,几分钟的事情。
复制源代码备用:
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Text1.Text
For i = 1 To Len(a)
If Asc(Mid(a, i, 1)) <> 13 Then
b = b & Mid(a, i, 1) & "。"
Else
b = b & vbCrLf
End If
Next i
Text1.Text = b
End Sub |
评分
-
查看全部评分
|