Office中国论坛/Access中国论坛

标题: [求助]救急,如何在没有装vb的机子上用chr函数? [打印本页]

作者: mars831221 时间: 2006-5-22 08:11
标题: [求助]救急,如何在没有装vb的机子上用chr函数?
如何在没有装vb的机子上用字符串函数?

发现在没装vb的机子上不能用chr    left    mid    right 等字符串函数,,

哪位高手来帮忙解决下,,,不胜感激啊.

下面程序中的红色函数都不能用,这些函数在哪个ddl中啊

如Function filterme(instring As String) As String
Dim where As Long
Dim outstring As String

outstring = ""
Do While True
      where = InStr(1, instring, vbCr)
      If where > 0 Then
         outstring = outstring & left$(instring, where - 1) & vbCrLf
         instring = Mid$(instring, where + 1)
      Else
         outstring = outstring & instring
         Exit Do
      End If
Loop
If Asc(Right$(outstring, 1)) <> 10 Then
      outstring = outstring & vbCrLf
End If

filterme = outstring
End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)