如何删除文本中的字符串
编号：QA002209
建立日期: 1999年12月9日 最后修改日期：1999年12月9日
所属类别：
liuzhen:
操作系统: windows 98
编程工具: vb
问题: 请问在VB中如何删除文本文件中的回车?谢谢。
回答:
你可以先将文本文件的内容读到一个字符串，然后使用Replace函数将vbCrLf替换为""，再写回文件：
Open sFile For Binary As fn
sLine = Space(FileLen(sFile))
Get #fn, , sLine
s = Replace(s, , vbCrLf, "")
.........
Close fn
Replace是VB 6的新函数，如果你使用的是VB5，可以加入下面的函数：
Public Function Replace(sIn As String, sFind As String, _
sReplace As String, Optional nStart As Long = 1, _
Optional nCount As Long = -1, Optional bCompare As _
VbCompareMethod = vbBinaryCompare) As String
Dim nC As Long, nPos As Integer, sOut As String
sOut = sIn
nPos = InStr(nStart, sOut, sFind, bCompare)
If nPos = 0 Then GoTo EndFn:
Do
nC = nC + 1
sOut = Left(sOut, nPos - 1) & sReplace & _
Mid(sOut, nPos + Len(sFind))
If nCount <> -1 And nC >= nCount Then Exit Do
nPos = InStr(nStart, sOut, sFind, bCompare)
Loop While nPos > 0
EndFn:
Replace = sOut
End Function
此问题由李海回答。
| |
|
|
| |
|
|
