字段中有如下文本：
农学院/2014/种子科学与工程
农学院/2014/植物保护
研究生学院/2014/硕士
想把“/”号间的字符截取到不同的字段里。
ACCESS不支持parsename函数，求网友帮助它法
ACCESS怎样截取指定字符间的文本
答案:1 mip版
解决时间 2021-01-16 10:42
- 提问者网友：一曲柔音、驱散离愁
- 2021-01-15 23:14
最佳答案
- 二级知识专家网友：酒空人散
- 2021-01-15 23:55
'使用instr函数截取字符串
Dim instrg, outstrg, x As String
Dim m, n, i As Integer
instrg = "农学院/2014/种子科学与工程" '需要拆分的字符串
m = Len(instrg) - Len(Replace(instrg, "/", "")) '分隔符/的数量
'利用循环函数拆分及合成新的字符串 "'农学院','2014','种子科学与工程'"
For n = 1 To m
i = InStr(instrg, "/")
x = Left(instrg, i - 1)
instrg = Mid(instrg, i + 1)
outstrg = outstrg & ",'" & x & "'"
Next
outstrg = Mid(outstrg & ",'" & instrg & "'", 2)
'使用sql语句插入表中记录
DoCmd.RunSQL "insert into 表 values(" & outstrg & ");"
Dim instrg, outstrg, x As String
Dim m, n, i As Integer
instrg = "农学院/2014/种子科学与工程" '需要拆分的字符串
m = Len(instrg) - Len(Replace(instrg, "/", "")) '分隔符/的数量
'利用循环函数拆分及合成新的字符串 "'农学院','2014','种子科学与工程'"
For n = 1 To m
i = InStr(instrg, "/")
x = Left(instrg, i - 1)
instrg = Mid(instrg, i + 1)
outstrg = outstrg & ",'" & x & "'"
Next
outstrg = Mid(outstrg & ",'" & instrg & "'", 2)
'使用sql语句插入表中记录
DoCmd.RunSQL "insert into 表 values(" & outstrg & ");"
我要举报
如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！
点此我要举报以上问答信息
推荐资讯