189 8069 5689
Len(String) 返回的是 String 的字符数。
创新互联公司成立与2013年，先为隆安等服务建站，隆安等地企业，进行企业商务咨询服务。为隆安企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Len(Integer（或其他数值类型）) 返回的是这个数值类型的字节长度。
Trim(100)，Trim() 后的结果已经转换成 String 字符串类型了。
而 100 这是一个 Integer 类型的数，Len 返回的是一个 Integer 所占的字节数，也就是4。
你要是想返回 100 这个字符串的字符长度，应该用双引号引上，Len("100")=3。
dim n as Integer
dim s as integer
s=0
for n=1 to len(i)
if mid(i,n,1)" " then s=s+1
next n
print s
使用VB.net编写屏蔽热键的方法有很多中,比如说使用系统的API函数,也可以使用钩子来进行屏蔽.还有一种就是.net带的一种方法,首先来判断所按下去的键,然后再执行操作等事件. 比如说:if (e.keycode==keys.D){e.handle=true}在keydown事件里面处理!这样就可以屏蔽了D键. 实例:if ((Control.ModifierKeys == Keys.Alt) (e.KeyCode == Keys.F4)){ e.Handled = true;}还有一种办法就是不通过屏蔽热键来实现,就是通过设置焦点.你可以把你程序窗口设置为主焦点,这样其他程序一般就无法在你的程序前面了.实现屏蔽的作用.至于任务管理器的话可以通过杀掉进程的办法做到. foreach (Process p1 in p){try{if (p1.ProcessName.ToLower().Trim() == "taskmgr")//这里判断是任务管理器{p1.Kill();return;}}catch{return;}}}以上是使用C#编写的,稍微改下就可以了,在,NET里面都差不多!
自己看看正则表达式就行了。
我只给个Demo，剩下的你自己领悟
Module Module1
Sub Main()
Dim reg = New System.Text.RegularExpressions.Regex("参数\d+:\s+([^\s]*)[\s]+")
For Each a As System.Text.RegularExpressions.Match In reg.Matches("1/span 参数1: D50R5 参数2: 150 参数3: 1 参数4: 55.859 参数5: 900 参数6: 4000 参数7: 0.4/0.3br")
Console.WriteLine(a.Groups(1))
Next
Dim reg2 = New System.Text.RegularExpressions.Regex("加工总时间:(\d{1,2}:\d{1,2}:\d{1,2})")
Console.WriteLine(reg2.Match("加工总时间:1:23:47br ").Groups(1))
Console.WriteLine("按任意键退出....")
Console.ReadKey()
End Sub
End Module
Private Function 硬盘序列号() As String
Try
Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 1\Target Id 0\Logical Unit Id 0")
硬盘序列号 = Trim(myInfo.GetValue("SerialNumber"))
Catch
Try
Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 1\Target Id 0\Logical Unit Id 0")
硬盘序列号 = Trim(myInfo.GetValue("SerialNumber"))
Catch
硬盘序列号 = ""
End Try
End Try
End Function
试下，如果返回为空，则表示失败。
在本机win8win8.1有效，不过好像在有些机器上没用。
可以用Replace把他替换成空或别的字符：Vb的TAB表示方式为:vbTab 例：Replace(内容,vbTab,"")