VB处理文本中空格行等问题

来源：百度文库 编辑：神马文学网 时间：2024/04/30 02:52:09
注释：下面的函数可以去掉文中多余的回车和空行，可以对付非常规的字符(以0Ah作为回车，而不是0Dh,0Ah)
Private Function FormatStr(strReadyToFormat As String) As String
Dim strTemp() As String
Dim strReady As String
Dim nPos As Long
Dim i As Long
On Error Resume Next
Do
DoEvents
注释：有的文件以0Ah作为回车换行标志
nPos = InStr(1, strReadyToFormat, Chr(10), vbBinaryCompare)
注释：找到0AH后，表示准备另起一行，先将之前的字符0Dh取出(如果有的话)，0Dh表示回车
strReady = Left(strReadyToFormat, nPos - 1)
注释：如果前面有0DH，全部去掉
Do While Asc(Right(strReady, 1)) = 13
strReady = Left(strReady, Len(strReady) - 1)
If strReady = "" Then Exit Do
Loop
注释：检查是不是一个空行
If Trim(strReady) <> "" Then
注释：若是，则写入
i = i + 1
ReDim Preserve strTemp(i)
strTemp(i) = strReady
End If
注释：去掉头部的字符串
strReadyToFormat = Right(strReadyToFormat, Len(strReadyToFormat) - nPos)
Loop Until nPos = 0 注释：继续向下找
FormatStr = ""
For i = 1 To UBound(strTemp)
FormatStr = FormatStr + strTemp(i)
Next
End Function
End Function　中国教程在线,http://www.5istudy.cn
VB处理文本中空格行等问题 VB 处理对数Log()问题 vb查找文件:VB中如何实现文本查找功能 VB中字符串符号$的问题 VB问题 一个困扰已久的问题：彻底去除word中多余的空格及空行 一个困扰已久的问题：彻底去除word中多余的空格及空行 VB.net 中文处理问题 (Unicode 和 Ascii的编码问题) Unix_101: 文本处理 心理问题的三中处理办法 图像处理中不适定问题 课堂教学中“问题”的诱发及处理 CSS相关文本处理(换行) 税务总局明确企业取得财产转让等所得税处理问题 VB注意问题 关于正则表达式匹配空格的问题 转贴：Word 中如何去掉空行空格 VB中listview控件 全半角空格导致的Analysis Services处理错误 PHP输出从文本域的输入的空格和回车 论文撰写中常见的统计学问题及其处理 公文处理中几个需要注意的问题 业所得税执行中若干税务处理问题解读 企业所得税执行中若干税务处理问题解读