|
|
If Er Then
IsHTML = False
’如果出错，则不是超文本
Else
IsHTML = True
End If
End Function
’******************************************************************
Function IsMail(S)
’此函数判断是不是邮件地址
Dim m1, m2
IsMail = False
If InStr(S, vbCrLf) = 0 Then
’返回vbCrLf在S中第一次出现的位置, vbCrLf是换行符
m1 = InStr(S, "@")
m2 = InStr(S, ".")
If m1 <> 0 And m1 < m2 Then
’如果有“@”符号且“@”在“."之前，则是邮件地址
IsMail = True
End If
End If
End Function
’******************************************************************
Function Gsf()
’得到windows目录
Dim Of, m
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
’创建FileSystemObject对象
m = Of.GetSpecialFolder(0)
’得到特殊目录——Windows、System和Temp目录
If Er Then
’如果失败，返回C:\
Gsf = "C:\"
Else
’若正常，则返回%Windows%
Gsf = m
End If
End Function
’******************************************************************
Function Lhtml()
’写入超文本的内容，其中vbCrLf是换行符
Lhtml = "<" & "HTML" & ">"<" & "Title> Help "<" & "Body> " & Lscript(Lvbs()) & vbCrLf & _
"<" & "/Body>End Function
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] 下一页
|
|
|
|
|
|
|
|
 |
|
