VB6的一个类模块中的句子，VB5识别不出来，谁能帮我翻译成VB5吗？

Question

Attribute BEGIN END  VERSION 1.0 CLASS 这几个关键字认不出来好象

Answer 1

回复人： arbiter(同济流氓) (  ) 信誉：93  2002-04-06 15:46:00  得分:0  
 
 
  你把这段代码复制到一个类模块中，VB5里一大片红色
====================================================================
有没有搞错！
这样能行吗？！
复制到记事本，保存为“clsFileIo.cls”

Answer 2

我试试看，不行找你算帐，对了，有人知道 VB6里InStrRev 这个函数在VB5中对应哪个函数？

Answer 3

有人知道 VB6里InStrRev 这个函数在VB5中对应哪个函数？
====================================================================
自己写！不难！

Answer 4

InStrRev 那你要告诉我他什么功能啊你！

Answer 5

就是 INSTR ？有什么区别？

Answer 6

InStrRev是从右边开始查找的！####################################################################
回复人： arbiter(同济流氓) (  ) 信誉：93  2002-04-06 16:01:00  得分:0  
 
 
  还是不行！楼上再楼上的，你完了
====================================================================
出什么错误？

Answer 7

可以了~~~~~！巴顿说的对，楼上的醒悟的慢，不过热心。能贴段 INSTRREV的示例给我看吗？

Answer 8

Public Function MyInStrRev(DataStr as String, FindStr as String, Optional Start As Long=1, Optional compare As VbCompareMethod = vbBinaryCompare) As Long
    Dim TempLng as Long
    Dim FindStart as long
    
    TempLng=InStr(Start, DataStr, FindStr, compare)
    Do While TempLng
        FindStart=TempLng
        TempLng=InStr(FindStart, DataStr, FindStr, compare)
    Loop
    
    If FindStart Then MyInStrRev=FindStart
    
End Function

Answer 9

Public Function MyInStrRev(DataStr as String, FindStr as String, Optional Start As Long=1, Optional compare As VbCompareMethod = vbBinaryCompare) As Long
    Dim TempLng as Long
    Dim FindStart as long
    Dim FindStrLen as Long
    
    FindStrLen=Len(FindStr)
    If FindStrLen=0 Or DataStr="" Then Exit Sub
    
    TempLng=InStr(Start, DataStr, FindStr, compare)
    Do While TempLng
        FindStart=TempLng
        TempLng=InStr(FindStart+FindStrLen, DataStr, FindStr, compare)
    Loop
    
    If FindStart Then MyInStrRev=FindStart
    
End Function

Answer 10

楼上，你牛，不过请贴再贴一段 MSDN 上的示例好吗？我要看功能。我的代码里，INSTRREV可以省略第一四个参数

Answer 11

不是不相信你，但我更相信MSDN，你要是写错了，我就倒霉了

Answer 12

InStrRev函数
      描述返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。语法InstrRev(string1, string2[, start[, compare]])InstrRev函数语法有如下几部分：部分 描述 
string1 必需的。要执行搜索的字符串表达式。 
string2 必需的。要搜索的字符串表达式。 
start 可选的。数值表达式，设置每次搜索的开始位置。如果忽略，则使用–1，它表示从上一个字符位置开始搜索。如果start包含 
Null，则产生一个错误。
 
compare 可选的。数字值，指出在判断子字符串时所使用的比较方法。如果忽略，则执行二进制比较。关于其值，请参阅“设置值”部分。 
设置值compare参数值如下：常数 值 描述 
vbUseCompareOption –1 用Option Compare语句的设置值来执行比较。 
vbBinaryCompare  0 执行二进制比较。 
vbTextCompare  1 执行文字比较。 
vbDatabaseCompare  2 只用于Microsoft Access。基于您的数据库信息执行比较。 
返回值InStrRev返回值如下：如果 InStrRev返回 
string1长度为零。 0 
string1为Null。 Null 
string2长度为零 Start 
string2为Null Null 
string2没有找到。 0 
string2在string1中找到。 找到匹配字符串的位置。 
start > Len(string2) 0 
说明请注意，InstrRev函数的语法和Instr函数的语法不相同。