第一个问题看下面的instr说明解决不了请贴代码.
为驻马店等地区用户提供了全套网页设计制作服务,及驻马店网站建设行业解决方案。主营业务为做网站、成都网站建设、驻马店网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
第二个问题,在左上角不是一样吗...或者你自己写个函数,映射坐标.
编程思维有时候是和实际思维有差异的,要慢慢习惯
InStr 函数
返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置。
语法
InStr([start, ]string1, string2[, compare])
InStr 函数的语法具有下面的参数:
部分 说明
start 可选参数。为数值表达式,设置每次搜索的起点。如果省略,将从第一个字符的位置开始。如果 start 包含 Null,将发生错误。如果指定了 compare 参数,则一定要有 start 参数。
string1 必要参数。接受搜索的字符串表达式。
string2 必要参数。被搜索的字符串表达式。
Compare 可选参数。指定字符串比较。如果 compare 是 Null,将发生错误。如果省略 compare,Option Compare 的设置将决定比较的类型。
设置
compare 参数设置为:
常数 值 描述
vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。
vbBinaryCompare 0 执行一个二进制比较。
vbTextCompare 1 执行一个按照原文的比较。
vbDatabaseCompare 2 仅适用于Microsoft Access,执行一个基于数据库中信息的比较。
返回值
如果 InStr返回
string1 为零长度 0
string1 为 Null Null
string2 为零长度 Start
string2 为 Null Null
string2 找不到 0
在 string1 中找到string2 找到的位置
start string2 0
说明
InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置,而不是字符位置。
创建一个Text1,Command1
Private Sub Command1_Click()
Dim GeShu As Long
Dim Ins As Long
Ins = InStr(Text1.Text, " ")
While Ins 0
GeShu = GeShu + 1
Ins = InStr(Ins + 1, Text1.Text, " ")
Wend
MsgBox GeShu
End Sub
注意:Instr函数是查找字符串的函数。
不知道你说的空是哪种意思?
有两种说法,一种是String.Empty,例如
Dim s As String = String.Empty 等同于 Dim s As String = ""
这种情况下直接If s = "" Then就可以判断是不是空.
还有一种是Nothing,必须要用If IsNothing(s) Then来判断.
如果用常规编程的方法:
直接用split(str1,“,”)的形式把str1字符串分成字符串数组,然后用for循环判断每个数组元素是否是数字或者是字符串就可以了。
说实话没看明白,如果判断是否为数值,可以用IsNumeric,如果是判断字符串中是否有空格,那比较麻烦些,只能用Len得到字符串长度,然后来个循环,一个字符一个符的比较判断了
If Left(textBox1.Text, 1) = " " Or Left(textBox1.Text, 1) = " " Then
...
End If