如何截取特定字符间内容？

hjs　发表于：2010-12-12 15:57:49 　

复制

如：001-002-5-黄-黄金-12 字段内容

需要截取成为
1=001

2=002

3=5

4=黄

5=黄金

6=12

请求帮助，谢谢！

Top

蒋元根发表于：2010-12-12 17:48:15

可以建立查询并且分别使用Left,Mid,Right函数:

SELECT 表1.ID, 表1.字段1, Left([表1]![字段1],3) AS 1, Mid([表1]![字段1],5,3) AS 2, Mid([表1]![字段1],9,1) AS 3, Mid([表1]![字段1],11,1) AS 4, Mid([表1]![字段1],13,2) AS 5, Right([表1]![字段1],2) AS 6
FROM 表1;

供参考

点击下载此附件

Top

hjs 发表于：2010-12-12 17:55:53

很感谢帮助，可能是没有说清楚：

如：001-002-5-黄-黄金-12 字段内容内容是不定的，可能是：001-56-89，或01-黄-5644，-之间的字符也是不同，不等的！谢谢

Top

hjs 发表于：2010-12-12 17:57:13

现在我采取的是：

x = InStr(strCode, "|")
fg1 = Left(strCode, x - 1)
strCode = Mid(strCode, x + 1)
y = InStr(strCode, "|") + x
fg2 = Mid(strCode, x + 1, y - x - 1)

这种方法，觉得不好，求助大家，谢谢

Top

蒋元根发表于：2010-12-12 19:28:33

请参考学习竹笛老师2004-8-11 发布的

<<一个自定义函数来分离字符串的方法>>

点击下载此附件

Top

蒋元根发表于：2010-12-12 19:30:26

原文::http://www.accessoft.com/article-show.asp?id=170

Top

hjs 发表于：2010-12-12 19:44:05

觉得不是最佳答案！继续！

Top

hjs 发表于：2010-12-12 21:23:09

Private Sub Command16_Click()
Call CS(Me!T, 5)

End Sub

Private Sub Form_Open(Cancel As Integer)
Me!T = "1|哈ungjind|3|没得|50"
End Sub

Function CS(ByVal strcode As String, h As Integer) As String
Dim str As String
Dim i As Integer
strcode = "|" & strcode & "|"
For i = 0 To h - 1
strcode = Mid(strcode, InStr(strcode, "|") + 1)
str = Left(strcode, InStr(strcode, "|") - 1)
Me("t" & Format(i, "0")) = str
Next
End Function

问题解决，但是如何保存又是问题？

Top

红尘如烟发表于：2010-12-12 21:33:28

http://www.accessoft.com/userfiles/hcry/20101212221921.rar

http://www.accessoft.com/blog/article-show.asp?userid=10768&id=5082

Top

hjs 发表于：2010-12-12 23:46:50

找到的答案：

'分割字符串
'call fgzf(me!-)

Sub fgzf(strcode As String)
Dim i As Integer
For i = 0 To UBound(Split(strcode, "-", -1), 1)
Me("yw" & Format(i, "00")) = Split(strcode, "-", -1)(i)
Next i
End Sub

新问题：现在只能依序显示在窗体上，如何把记录保存在其他变量下？

如：xb=第一个字段

xm=第二个

……

谢谢！

Top

hjs 发表于：2010-12-13 12:13:48

等待，……

Top

总记录：10篇页次：1/1 9 1 :

Access交流中心

如何截取特定字符间内容？