Imports System.Diagnostics Public Class FSVCommon '******************************************************************************************** '功能 :关闭指定进程 '参数 :ProcessName:进程名 '返回值:无 '上传时间:2005/04/18 '******************************************************************************************** Public Shared Function KillProcess(ByVal ProcessName As String) Dim pProcess() As Process '进程序列 Dim myProcess As Process '进程名 pProcess = Process.GetProcessesByName(ProcessName) '查找所指定的进程 For Each myProcess In pProcess myProcess.Kill() Next End Function
'******************************************************************************************** '功能 :计算指定字符串的长度(Web) '参数 :txtString:指定字符串 '返回值:长度 '上传时间:2005/04/18 '******************************************************************************************** Private Function GetLength(ByVal txtString As String) As Integer Dim textLength As Integer '字符串的长度 textLength = txtString.Length Dim i As Integer '循环变量 For i = 0 To txtString.Length - 1 '是否为全角字符的判断 If Not (0 <= Asc(txtString.Substring(i, 1)) _ And Asc(txtString.Substring(i, 1)) <= 255) And _ Not (65377 <= Asc(txtString.Substring(i, 1)) _ And Asc(txtString.Substring(i, 1)) <= 65439) Then textLength = textLength + 1 End If Next Return textLength End Function End Class 
|