VB如何查找指定字符?
答案:6 悬赏:10 手机版
解决时间 2021-11-10 21:41
- 提问者网友：做自己de王妃
- 2021-11-09 21:31
VB如何查找指定字符?
最佳答案
- 五星知识达人网友：何以畏孤独
- 2021-11-09 22:10
Dim i, c, TmpAAA
Dim TmpFiel() As String
TmpAAA = "6754335445/564877986/45465fgd65/ghf54654"
TmpFiel = Split(TmpAAA, "fgd")
TmpAAA = TmpFiel(0)
TmpFiel = Split(TmpAAA, "/")
For i = 0 To UBound(TmpFiel) - 1
c = c + Len(TmpFiel(i)) + Len("/")
Next i
MsgBox "离fgd最近且在它之前的/位置在" & c
Dim TmpFiel() As String
TmpAAA = "6754335445/564877986/45465fgd65/ghf54654"
TmpFiel = Split(TmpAAA, "fgd")
TmpAAA = TmpFiel(0)
TmpFiel = Split(TmpAAA, "/")
For i = 0 To UBound(TmpFiel) - 1
c = c + Len(TmpFiel(i)) + Len("/")
Next i
MsgBox "离fgd最近且在它之前的/位置在" & c
全部回答
- 1楼网友：老鼠爱大米
- 2021-11-10 01:56
54654654654654646456
- 2楼网友：洒脱疯子
- 2021-11-10 00:20
Private Sub Command1_Click()
a = "6754335445/564877986/45465fgd65/ghf54654"
Print InStrRev(a, "/", InStr(1, a, "fgd"))
End Sub
a = "6754335445/564877986/45465fgd65/ghf54654"
Print InStrRev(a, "/", InStr(1, a, "fgd"))
End Sub
- 3楼网友：慢性怪人
- 2021-11-09 23:25
dim i as integer
dim k as integer
dim m as integer
dim s as string
dim temp as string
dim p as string
i=0
k=0
m=0
s="6754335445/564877986/45465fgd65/ghf54654"
temp="fgd"
p="/"
i=instr(s,temp) '
s=srReverse(left(s,i))
k=instr(s,p)
m=i-k
dim k as integer
dim m as integer
dim s as string
dim temp as string
dim p as string
i=0
k=0
m=0
s="6754335445/564877986/45465fgd65/ghf54654"
temp="fgd"
p="/"
i=instr(s,temp) '
s=srReverse(left(s,i))
k=instr(s,p)
m=i-k
- 4楼网友：风格不统一
- 2021-11-09 22:38
修改方法：
OPEN FILE FOR INPUT AS #1
DO WHILE NOT EOF(1)
LINE INPUT #1,TEMP
T = T & TEMP
LOOP
INSTR("要搜索的字符串",T)
关于VB:
VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面 VB 程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。
窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。
VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。
VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。
VB 使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB 对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。
VB 使得大量的外界控件有了自己的生存空间。大量的第三方控件针对 VB 提供。VB 也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。
语言缺点
Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。
不支持继承
VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。
OPEN FILE FOR INPUT AS #1
DO WHILE NOT EOF(1)
LINE INPUT #1,TEMP
T = T & TEMP
LOOP
INSTR("要搜索的字符串",T)
关于VB:
VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面 VB 程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。
窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。
VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。
VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。
VB 使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB 对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。
VB 使得大量的外界控件有了自己的生存空间。大量的第三方控件针对 VB 提供。VB 也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。
语言缺点
Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。
不支持继承
VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯