锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net统计字符串 vb统计字符串个数

IT技术字符串

关于VB.NET连接字符串Dim da As String = "SELECTCount(检测项目) FROM b where 检测项目='cc'"
这句写错啦,你直接传送的是检测项目为字符串"cc"的参数,并不是你程序写的CC参数
改为:
Dim da As String = "SELECTCount(检测项目) FROM b where 检测项目='"cc"'"
建议通过程序组织的sql语句可以通过msgbox da 弹出来看看,这样你较容易查出是什么错误,较长的就用textbox1.text=da来看了,不过记得设置断点"exit sub"
使用ACCESS数据库的日期列比较，应为：
"select * from 表 where日期列=" "#"cdate(textbox1.text) "#"
注意前后两个“#”号
使用sqlserver
"select * from 表 where日期列=" "'"cdate(textbox1.text) "'"
当然日期格式要注意 ， 如长短日期等 。
日期期间:between 小日期 and 大日期(记得加#号)
VB.NET中怎样查看一个字符串中的字符出现了多少次?有很多方法 ， 下面这种我觉得是最快的
Dim s As String = "sadkalkdjajjdhsdsa"
Console.WriteLine(s.Split("a").Length - 1)
vb.net如何运算一个字符串调用 脚本解析引擎，
textbox2.text=Eval(textbox1.text).ToString()
Function Eval(ByVal Expressions As String) As Double
Dim Mssc = CreateObject("MSScriptControl.ScriptControl")
Mssc.Language = "vbscript"
Return CDbl( Mssc.Eval(Expressions))
End Function
不喜欢上面提示的警告的话
textbox2.text=EvalString(textbox1.text)
Function EvalString(ByVal Expressions As String) As String
dim oType = System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
Dim o = System.Activator.CreateInstance(oType)
oType.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty , Nothing, o,New Object(){ "vbscript"})
Return oType.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, o, New Object(){Expressions}).ToString()
End Function
Eval 在VB中使用，刚找到的_vb吧_百度贴吧
vb 中获取某个字符的个数VB6vb.net统计字符串的代码vb.net统计字符串：
Dim s As String
Dim Need as string'需要找的字符
Dim i as integer,Count as integer
s="abc.def.gh.i.gkl.mn"
Need = "."
Count = 0
For i=1 To Len(s)
if Mid(s,i,1)=Need then Count=Count 1
Next
Print Count
VB2005的代码:
Dim s As String = "abc.def.gh.i.gkl.mn"
Dim Need as string ="."'需要找的字符
Dim i ,Count as integer
【vb.net统计字符串 vb统计字符串个数】For i=0 To s.length-1
if Mid(s,i,1)=Need then Count= 1
Next
Console.WriteLine(count)
(假设Option Strict为Off)
看了2楼的代码vb.net统计字符串 ， 思路很好的
不过Split函数要对多个字符串拆分赋值
还要用Preserve重新定义数组
在s过长时操作十分占用CPU
而如果字符串含有Unicode字符则不能用Byte数组处理
所以使用Mid函数（或.net的SubString函数）速度比较快
如果不限使用版本的话
VB2005中新增数据类型Char则是最好选择
Char类型的数组代替String操作起来快很多倍
vb.net里关于字符串的操作If "3333aa".EndsWith("aa") Then MessageBox.Show("以aa结尾")
or :
dim str as string = "3333aa"
if str.EndsWith("aa") Then MessageBox.Show("以aa结尾")
vb.net 查找字符串简单点写 。
Module Program
Sub Main()
Console.WriteLine("Hello World!")
Dim t As String, a() As String, c As Integer
t="/admin/index/login/defasd.php"
a=t.Split("/"c)
c=0
For Each p In a
If c0 Then
Console.WriteLine("/" p)
End If
c =1
Next
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
End Module
========
Hello World!
/admin
/index
/login
/defasd.php
vb.net统计字符串的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb统计字符串个数、vb.net统计字符串的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何在粘土服务器上进行装饰？ 粘土服务器怎么装饰

    下一篇：php数据库存图片并显示，php将数据库内容显示到网页