数据提取整理

ly

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

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

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

goodwin168

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

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

第1个

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

goodwin168

数据批量提取与分解.zip (38.67 KB, 下载次数: 1)

2021-8-4 09:23 上传

点击文件名下载附件

附件中数据己更新

goodwin168

ly

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

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

1. Sub TextTest()
   
2. Dim intLessThan As Integer, intGreaterThan As Integer
   
3. Dim intLeftParentheses As Integer, intRigftParentheses As Integer
   
4. Dim strOldText As String, strNewText1 As String, strNewText2 As String, strNewText3 As String
   
5. strOldText = "R816,R861,R897" & _
   
6. "<0341012315(1/10W 10ohm F 0603)>" & _
   
7. "<0341012332(1/11W 10ohm F 0603)>" & _
   
8. "<0341012333(1/12W 10ohm F 0603)>" & _
   
9. "<0341012334(1/13W 10ohm F 0603)>" & _
   
10. "<0341012335(1/14W 10ohm F 0603)>"
    
11. strNewText = Replace(strOldText, "<", "")
    
12. n = (Len(strOldText) - Len(strNewText))
    
13. For m = 1 To n
    
14. intLessThan = InStr(intGreaterThan + 1, strOldText, "<", 1)
    
15. If intLessThan <> 0 Then intGreaterThan = InStr(intLessThan, strOldText, ">")
    
16. 
    
17. intLeftParentheses = InStr(intRigftParentheses + 1, strOldText, "(", 1)
    
18. If intLeftParentheses <> 0 Then intRigftParentheses = InStr(intLeftParentheses, strOldText, ")")
    
19. 
    
20. If intGreaterThan <> 0 Then
    
21. strNewText2 = Mid(strOldText, intLessThan + 1, intLeftParentheses - 1 - intLessThan)
    
22. strNewText3 = Mid(strOldText, intLeftParentheses + 1, intRigftParentheses - 1 - intLeftParentheses)
    
23. End If
    
24. 
    
25. If m = 1 Then strNewText1 = Left(strOldText, intLessThan - 1)
    
26. Debug.Print strNewText1, strNewText2, strNewText3, "S"
    
27. Next
    
28. 
    
29. End Sub

复制代码

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

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

goodwin168

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

感谢你的指导，谢谢