数据提取整理

ly · 发表于 2021-8-3 15:38

goodwin168 发表于 2021-8-2 19:38
你好长度不固定，这样是一组数据，

如果依照<()>来区分一共有几个，倒是简单，但是碰到下图情况如何处理呢？

第1个<和第2个是<连着的，如何判断取值？

goodwin168 · 发表于 2021-8-4 09:17

ly 发表于 2021-8-3 15:38
如果依照来区分一共有几个，倒是简单，但是碰到下图情况如何处理呢？

第1个

<0341012315(1/10W 10ohm F 0603)><0341012332(1/11W 10ohm F 0603)>
以上连着两组或多组数据，<0341012315(1/10W 10ohm F 0603)>,第一个<为第一个替代料号，第一个(为第一个替代料的规格，依次类推

goodwin168 · 发表于 2021-8-4 09:18

ly 发表于 2021-8-3 15:38
如果依照来区分一共有几个，倒是简单，但是碰到下图情况如何处理呢？

第1个

不好意思，上面你标识的那个，是我的例子中有一个搞错了，可以忽略，我重新上传

goodwin168 · 发表于 2021-8-4 09:24

数据批量提取与分解.zip (38.67 KB, 下载次数: 1)
附件中数据己更新

goodwin168 · 发表于 2021-8-4 09:25

本帖最后由 goodwin168 于 2021-8-4 09:27 编辑

ly · 发表于 2021-8-4 15:42

goodwin168 发表于 2021-8-4 09:17
以上连着两组或多组数据，,第一个

如果数据规范，则提取数据模块如下

Sub TextTest()
Dim intLessThan As Integer, intGreaterThan As Integer
Dim intLeftParentheses As Integer, intRigftParentheses As Integer
Dim strOldText As String, strNewText1 As String, strNewText2 As String, strNewText3 As String
strOldText = "R816,R861,R897" & _
"<0341012315(1/10W 10ohm F 0603)>" & _
"<0341012332(1/11W 10ohm F 0603)>" & _
"<0341012333(1/12W 10ohm F 0603)>" & _
"<0341012334(1/13W 10ohm F 0603)>" & _
"<0341012335(1/14W 10ohm F 0603)>"
strNewText = Replace(strOldText, "<", "")
n = (Len(strOldText) - Len(strNewText))
For m = 1 To n
intLessThan = InStr(intGreaterThan + 1, strOldText, "<", 1)
If intLessThan <> 0 Then intGreaterThan = InStr(intLessThan, strOldText, ">")
intLeftParentheses = InStr(intRigftParentheses + 1, strOldText, "(", 1)
If intLeftParentheses <> 0 Then intRigftParentheses = InStr(intLeftParentheses, strOldText, ")")
If intGreaterThan <> 0 Then
strNewText2 = Mid(strOldText, intLessThan + 1, intLeftParentheses - 1 - intLessThan)
strNewText3 = Mid(strOldText, intLeftParentheses + 1, intRigftParentheses - 1 - intLeftParentheses)
End If
If m = 1 Then strNewText1 = Left(strOldText, intLessThan - 1)
Debug.Print strNewText1, strNewText2, strNewText3, "S"
Next
End Sub

复制代码

该模块建议写成函数形式，以dao或adodb方法循环记录集到字段【零件位置】时调用。

该代码没有经过数据调试，仅仅是一些思路而已。
水平有限，仅供参考，请笑纳！

goodwin168 · 发表于 2021-8-6 12:59

ly 发表于 2021-8-4 15:42
如果数据规范，则提取数据模块如下
该模块建议写成函数形式，以dao或adodb方法循环记录集到字段【零件位 ...

感谢你的指导，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 数据提取整理