关于字符串处理

Question

查找vbcrlf这个字符，找到了就删掉。也可以用replace（vbcrlf,"")，将所有的回车替换为空串。

Answer 1

读文本文件时不会包含回车吧
有就用Replace去掉

Answer 2

用IF....THEN....ELSE对它进行筛选

Answer 3

给你个函数
Instead( 源文件，vbcrlf,"")Function Instead(fString As String, iString As String, idString As String) As String
For i = 1 To Len(fString)
If Mid(fString, i, Len(iString)) = iString Then Exit For
Next i
Instead = Left(fString, i - 1) + idString + Right(fString, Len(fString) - i - Len(iString) + 1)
End Function

Answer 4

const sEnter=chr(13)+chr(10)private Function DleEnter(byval S as string) as string
  dim ls as string,a as string,b as string
  dim i as long,j as long
  ls =s
  i=instr(sEnter,ls)
  if i>0 then
      do while i>0
          j=instr(sEnter,ls)
          i=len(ls)
          if j>0 then
              b=b & mid(ls,1,j-1)
              ls=mid(ls,j+1,i-j-1)
          else
              b=b & ls
          end if
      loop
  else
     b=ls
  end if
  DleEnter=b
End Function