“五.一”来临之际，东方之珠酒楼请CSDN总裁及以下人员和所有发烧友吃顿饭，凡进来者不拒，吃了饭再走！

东方之珠 2006-04-28 07:21:37

初次涉及DLL编程，请各位见怪不要惊！我有几个函数想编写成ActiveX DLL，准备放在类模块里，请各位高手帮我看一下定义是否正确，如果不正确应如何定义？（原先放在标准模块里，已调试过没问题）。

Option Explicit

'字符替换函数
Public Function THString(strName As String, strA As String, strB As String) As String
'用strA替换strB，均为一字节字符
On Error Resume Next
Dim GetI, GetJ, GetK As String
If Trim(strName) <> "" Then
For GetI = 1 To Len(Trim(strName))
GetJ = Mid$(strName, GetI, 1)
If GetJ = strB Then
Mid$(strName, GetI, 1) = strA
THString = strName'返回替换后的字符串
Exit For
End If
Next GetI
End If
End Function

'删除文件全路径函数
Public Function DeleFilePathName(Get_FileName As String) As String
On Error Resume Next
Dim GetI, GetJ, GetK As String
If Trim(Get_FileName) <> "" Then
For GetI = Len(Trim(Get_FileName)) To 2 Step -1
GetJ = Mid$(Get_FileName, GetI, 1)
If GetJ = "\" Then
GetK = Right$(Get_FileName, Len(Get_FileName) - GetI)
Exit For
End If
GetK = Get_FileName
Next GetI
For GetI = Len(GetK) To 1 Step -1
GetJ = Mid$(GetK, GetI, 1)
If GetJ = "." Then
Mid$(GetK, GetI) = Space$(6)
Exit For
End If
Next GetI
DeleFilePathName = Trim(GetK)'返回删除全路径后的文件名
End If
End Function

'获取文件扩展名函数
Public Function GetFileExtendName(sFileName As String) As String
On Error Resume Next
Dim GetI, GetJ, GetK As String
If Trim(sFileName) <> "" Then
For GetI = Len(Trim(sFileName)) To 1 Step -1
GetJ = Mid$(sFileName, GetI, 1)
If GetJ = "." Then
GetK = Right$(sFileName, Len(Trim(sFileName)) - GetI)
GetFileExtendName = Trim(GetK)'返回文件扩展名
Exit For
End If
Next GetI
End If
End Function

...全文

289 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

PctGL 2006-05-31

打赏
举报

替换字符串用replace多好??
难道您用得是 VB5???

PctGL 2006-05-31

打赏
举报

楼主俺觉得你得过程简直罗嗦....

删除文件全路径名而只得到文件名..用那么麻烦吗???
用dir函数啊....这个返回值就是文件或者目录名啊....这么简单得一句...为什么要那么长....
而且还是不安全得字符串操作.......

获取扩展名就用 split 啊....
exn()=split ("文件名" , ".")
ExtName=exn(ublound(exn))
???? 2句啊....
您那一大串....还要封装...没必要吧...