|
|
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] 下一页
|
|
|
|
|
|
|
|
 |
|