代码中的"["这个符号，如何修改成由0到9组成的4位数字 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim t As Table = Tables("扫描数据处理")

Dim nj, bj, xm, cj,cj1,cj2,cj3,cj4, yxcj, yxcj1,yxcj2,yxcj3,yxcj4 As String

For Each r As Row In t.Rows

xm = r("扫描数据")

cj = r("录取数")

cj1 = r("最高分")

cj2 = r("最低分")

cj3 = r("平均分")

cj4 = r("差值")

If xm.IndexOf("【") <> -1 Then '判断有“【”符号行

nj = xm

bj = ""

yxcj = ""

yxcj1 = ""

yxcj2 = ""

yxcj3 = ""

yxcj4 = ""

ElseIf xm.IndexOf("[") <> -1 Then '判断有“[”符号行

bj = xm

yxcj = cj

yxcj1 = cj1

yxcj2 = cj2

yxcj3 = cj3

yxcj4 = cj4

Else '普通人员 '普通人员数据不改变

End If

r("是否征集") = nj

r("院校名称码") = bj

r("院校录取数") = yxcj

r("院校最高分") = yxcj1

r("院校最低分") = yxcj2

r("院校平均分") = yxcj3

r("院校差值") = yxcj4

老师，这段代码是判断 “【”和"["这两个符号是否存在，如果存在就按要求填充数据，我想修改一下：

ElseIf xm.IndexOf("[") <> -1 Then '判断有“[”符号行——就是这行代码中的"["这个符号，修改成由0到9组成的4位数字，这个四们数字如何判断，谢谢老师！

这个四位数是原来就有的，如0012张三，9001李四、1089王五、0617赵六等等，如何依据这个四位数字进行判断？原来判断的是字符：[

此主题相关图片如下：11.png

黄色部分，原来用字符 [ 它来判断，现在想修改成汉字前边的那带四位数的，

谢谢老师：原来是[公办]前边的“[”这个字符，现在想修改成最前面带有4位数字的字符（要排除掉带2位字符的）！

ElseIf xm.IndexOf("[") <> -1 Then '判断有“[”符号行

把"["这个字符改成典色部分的前面四位数字的字符，如：ElseIf xm.IndexOf("0082") <> -1 Then '判断有“[”符号行；如：ElseIf xm.IndexOf("0140") <> -1 Then '判断有“[”符号行；再如：ElseIf xm.IndexOf("0374") <> -1 Then '判断有“[”符号行等等！

此主题相关图片如下：22.png

扫描数据列，包含大学名称与专业名称，就是说，院校名称与专业名称混在了一列中，现在的问题是如何把院校名称与专业名称区分开：区分的标志就是大学名称前面的4位数字的字符。然后进行判断为带4位数字字符的为院校名称，带2位数字字符的为专业名称，提取院校名称，填充到院校名称列中。我不知道我说明白没有。老师你看下！

有道理，我怎么没有想到！！谢谢老师！！

[此贴子已经被作者于2022/6/8 11:22:43编辑过]

主题：代码中的"["这个符号，如何修改成由0到9组成的4位数字