stillfish00

¦^´_ 1# boblovejoyce
¯ó¯ó§¹¦¨¦p¤Uµ{¦¡¡A
¦]¬°VBªº¥¿«hªí¹F¦¡¥\¯à®z¤FÂI
©Ò¥H¤S¦Û¤v¼g¤F FindCloseBracket §ä¥X¤Ç°tªº¥k¬A¸¹¦ì¸m

1. Sub Test()
   
2.     Dim fn As Integer, allText As String, indexClose As Long
   
3.     Dim fname
   
4.     fname = Application.GetOpenFilename()
   
5.     If TypeName(fname) = "Boolean" Then Exit Sub
   
6.     fn = FreeFile()
   
7.     Open fname For Input As #fn
   
8.     allText = Input$(LOF(1), 1)
   
9.     Close #fn
   
10.    
    
11.     Sheets.Add
    
12.     Cells(1, 1).Resize(, 3) = Array("net", "check", "portRef")
    
13.     Dim oRegex As Object: Set oRegex = CreateObject("vbscript.regexp")
    
14.     Dim oMch As Object, oMch2 As Object, x, i As Long, j As Long, endindex As Long
    
15.     Dim hasVDD As Boolean, hasGND As Boolean
    
16.     With oRegex
    
17.         .Global = True
    
18.         .Pattern = "\(net\s+([^\s()]*)"     '(net ¶}ÀY¡A®·®»¤U¤@­Ó«DªÅ¥Õ©Î()ªº¦r²Õ
    
19.         Set oMch = .Execute(allText)
    
20.         
    
21.         .Pattern = "\(portRef\s+([^\s()]*)"     '(portRef ¶}ÀY¡A®·®»¤U¤@­Ó«DªÅ¥Õ©Î()ªº¦r²Õ
    
22.         i = 2
    
23.         For Each x In oMch
    
24.             endindex = FindCloseBracket(allText, x.firstIndex)
    
25.             Set oMch2 = .Execute(Mid(allText, x.firstIndex, endindex - x.firstIndex + 1))
    
26.             Cells(i, 1) = x.subMatches(0)
    
27.             j = 3
    
28.             hasVDD = False: hasGND = False
    
29.             For Each y In oMch2
    
30.                 If InStr(1, y.subMatches(0), "VDD", vbTextCompare) Then hasVDD = True
    
31.                 If InStr(1, y.subMatches(0), "GND", vbTextCompare) Then hasGND = True
    
32.                 Cells(i, j) = y.subMatches(0)
    
33.                 j = j + 1
    
34.             Next
    
35.             Cells(i, 2) = IIf(oMch2.Count < 2 Or (hasVDD And hasGND), "X", "O")
    
36.             
    
37.             i = i + 1
    
38.         Next
    
39.     End With
    
40. End Sub
    
41. 
    
42. '   s: input string
    
43. '   i: index of begin bracket "("
    
44. Function FindCloseBracket(ByRef s As String, ByVal i As Long) As Long
    
45.     Dim isInString As Boolean   'ex : ¹w¨¾Âù¤Þ¸¹¦r¦ê¤ºªº () »~§P
    
46.     i = i + 1   '±q¤U¤@­Ó¦r¤¸¶}©l
    
47.     Do While i <= Len(s)
    
48.         Select Case Mid(s, i, 1)
    
49.         Case "("
    
50.             If Not isInString Then
    
51.                 i = FindCloseBracket(s, i)
    
52.                 If i = 0 Then Exit Do
    
53.             End If
    
54.         Case ")"
    
55.             If Not isInString Then
    
56.                 FindCloseBracket = i
    
57.                 Exit Function
    
58.             End If
    
59.         Case """"
    
60.             isInString = Not isInString
    
61.         Case Else
    
62.         End Select
    
63.         
    
64.         i = i + 1
    
65.         DoEvents
    
66.     Loop
    
67.     FindCloseBracket = 0
    
68. End Function

½Æ»s¥N½X

stillfish00

¦^´_ 8# boblovejoyce
¸ê®Æ¨º»ò¦hµ§­n¥ýÁ¿¡A¤W¶ÇªºÀɮפ~¨âµ§´N¨S¦³Àu¤Æ¤F

1. Sub Test()   
   
2.     '== Read File ==
   
3.     Dim fn As Integer, allText As String
   
4.     Dim fname
   
5.     fname = Application.GetOpenFilename()
   
6.     If TypeName(fname) = "Boolean" Then Exit Sub
   
7.     fn = FreeFile()
   
8.     Open fname For Input As #fn
   
9.     allText = Input$(LOF(1), 1)
   
10.     Close #fn
    
11.         
    
12.     '== Parse Element ==
    
13.     Dim oRegex As Object: Set oRegex = CreateObject("vbscript.regexp")
    
14.     Dim oDic As Object: Set oDic = CreateObject("scripting.dictionary")
    
15.     Dim oMch As Object, oMch2 As Object, x, i As Long, j As Long, endIndex As Long
    
16.     Dim hasVDD As Boolean, hasGND As Boolean
    
17.     With oRegex
    
18.         .Global = True
    
19.         .Pattern = "\(net\s+([^\s()]*)"     '(net ¶}ÀY¡A®·®»¤U¤@­Ó«DªÅ¥Õ©Î()ªº¦r²Õ
    
20.         Set oMch = .Execute(allText)
    
21.         
    
22.         .Pattern = "\(portRef\s+([^\s()]*)"     '(portRef ¶}ÀY¡A®·®»¤U¤@­Ó«DªÅ¥Õ©Î()ªº¦r²Õ
    
23.         i = 1
    
24.         For Each x In oMch
    
25.             endIndex = FindCloseBracket(allText, x.firstIndex)
    
26.             If endIndex = 0 Then MsgBox "Fail to parse: " & vbNewLine & Mid(allText, x.firstIndex, 50) & "...": Exit Sub
    
27.             Set oMch2 = .Execute(Mid(allText, x.firstIndex, endIndex - x.firstIndex + 1))
    
28.             
    
29.             hasVDD = False: hasGND = False
    
30.             For Each y In oMch2
    
31.                 If InStr(1, y.subMatches(0), "VDD", vbTextCompare) Then hasVDD = True
    
32.                 If InStr(1, y.subMatches(0), "GND", vbTextCompare) Then hasGND = True
    
33.             Next
    
34.             
    
35.             If oMch2.Count < 2 Or (hasVDD And hasGND) Then  'portRef§C©ó¨â­Ó©Î¦P®É§tVDD¤ÎGND¦r¦ê
    
36.                 oDic.Add i, x.subMatches(0)
    
37.                 i = i + 1
    
38.             End If
    
39.         Next
    
40.     End With
    
41.    
    
42.     '== Output result ==
    
43.     Dim ar
    
44.     If oDic.Count = 0 Then MsgBox "All pass": Exit Sub
    
45.     ar = oDic.items
    
46.     With Sheets.Add
    
47.         Application.ScreenUpdating = False
    
48.         .[a1].Resize(UBound(ar) - LBound(ar) + 1) = OneDtoTwoD(ar)
    
49.         Application.ScreenUpdating = True
    
50.     End With
    
51. End Sub
    
52. 
    
53. '   s: input string
    
54. '   i: index of begin bracket "("
    
55. Function FindCloseBracket(ByRef s As String, ByVal i As Long) As Long
    
56.     Dim isInString As Boolean   'ex : ¹w¨¾Âù¤Þ¸¹¦r¦ê¤ºªº () »~§P
    
57.     i = i + 1   '±q¤U¤@­Ó¦r¤¸¶}©l
    
58.     Do While i <= Len(s)
    
59.         Select Case Mid(s, i, 1)
    
60.         Case "("
    
61.             If Not isInString Then
    
62.                 i = FindCloseBracket(s, i)
    
63.                 If i = 0 Then Exit Do
    
64.             End If
    
65.         Case ")"
    
66.             If Not isInString Then
    
67.                 FindCloseBracket = i
    
68.                 Exit Function
    
69.             End If
    
70.         Case """"
    
71.             isInString = Not isInString
    
72.         Case Else
    
73.         End Select
    
74.         i = i + 1
    
75.     Loop
    
76.     FindCloseBracket = 0
    
77. End Function
    
78. 
    
79. Function OneDtoTwoD(ar, Optional base As Integer) As Variant    'transepose array of elements > 65535
    
80.     Dim i, retn()
    
81.     ReDim retn(base To base + UBound(ar) - LBound(ar), base To base)  ' transe to base
    
82.     For i = LBound(ar) To UBound(ar)
    
83.         retn(i - LBound(ar) + base, base) = ar(i)
    
84.     Next
    
85.     OneDtoTwoD = retn
    
86. End Function

½Æ»s¥N½X

stillfish00

¦^´_ 12# boblovejoyce
®¦¡AfirstIndex ³oÃä§Ú¿ù¤F¡Amatch¨ì²Ä¤@­Ó¦r®É firstIndex = 0¡A©MVBA¤£¤@¼Ë¡AÃø©Ç¶]¨º»ò¤[¡A­×§ï¦p¤U

µM«á¦³¨Çrenameªº§Ú¤£ª¾­n¨ú­þ­Ó¦WºÙ¡A³£¼g¨ì²Ä¤@Äæ

1. Sub Test()
   
2.     '== Read File ==
   
3.     Dim fn As Integer, allText As String
   
4.     Dim fname
   
5.     fname = Application.GetOpenFilename()
   
6.     If TypeName(fname) = "Boolean" Then Exit Sub
   
7.     fn = FreeFile()
   
8.     Open fname For Input As #fn
   
9.     allText = Input$(LOF(1), 1)
   
10.     Close #fn
    
11.         
    
12.     '== Parse Element ==
    
13.     Dim oRegex As Object: Set oRegex = CreateObject("vbscript.regexp")
    
14.     Dim oDic As Object: Set oDic = CreateObject("scripting.dictionary")
    
15.     Dim omch As Object, oMch2 As Object, x, i As Long, j As Long, endIndex As Long
    
16.     Dim hasVDD As Boolean, hasGND As Boolean
    
17.     With oRegex
    
18.         .Global = True
    
19.         .Pattern = "\(net\s+(\(rename.*\)|[^\s()]*)"     '(net ¶}ÀY¡A®·®»¤U¤@­Ó«DªÅ¥Õ©Î()ªº¦r²Õ©Îrename...
    
20.         Set omch = .Execute(allText)
    
21.         
    
22.         .Pattern = "\(portRef\s+([^\s()]*)"     '(portRef ¶}ÀY¡A®·®»¤U¤@­Ó«DªÅ¥Õ©Î()ªº¦r²Õ
    
23.         i = 1
    
24.         For Each x In omch
    
25.             endIndex = FindCloseBracket(allText, x.firstIndex + 1)
    
26.             If endIndex = 0 Then MsgBox "Fail to parse: " & vbNewLine & Mid(allText, (x.firstIndex + 1), 50) & "...": Exit Sub
    
27.             Set oMch2 = .Execute(Mid(allText, x.firstIndex + 1, endIndex - (x.firstIndex + 1) + 1))
    
28.             
    
29.             hasVDD = False: hasGND = False
    
30.             For Each y In oMch2
    
31.                 If InStr(1, y.subMatches(0), "VDD", vbTextCompare) Then hasVDD = True
    
32.                 If InStr(1, y.subMatches(0), "GND", vbTextCompare) Then hasGND = True
    
33.             Next
    
34.             
    
35.             If oMch2.Count < 2 Or (hasVDD And hasGND) Then  'portRef§C©ó¨â­Ó©Î¦P®É§tVDD¤ÎGND¦r¦ê
    
36.                 oDic.Add i, x.subMatches(0)
    
37.                 i = i + 1
    
38.             End If
    
39.         Next
    
40.     End With
    
41.    
    
42.     '== Output result ==
    
43.     Dim ar
    
44.     If oDic.Count = 0 Then MsgBox "All pass": Exit Sub
    
45.     ar = oDic.items
    
46.     With Sheets.Add
    
47.         Application.ScreenUpdating = False
    
48.         .[a1].Resize(UBound(ar) - LBound(ar) + 1) = OneDtoTwoD(ar)
    
49.         Application.ScreenUpdating = True
    
50.     End With
    
51. End Sub
    
52. 
    
53. '   s: input string
    
54. '   i: index of begin bracket "("
    
55. Function FindCloseBracket(ByRef s As String, ByVal i As Long) As Long
    
56.     Dim isInString As Boolean   'ex : ¹w¨¾Âù¤Þ¸¹¦r¦ê¤ºªº () »~§P
    
57.     i = i + 1   '±q¤U¤@­Ó¦r¤¸¶}©l
    
58.     Do While i <= Len(s)
    
59.         Select Case Mid(s, i, 1)
    
60.         Case "("
    
61.             If Not isInString Then
    
62.                 i = FindCloseBracket(s, i)
    
63.                 If i = 0 Then Exit Do
    
64.             End If
    
65.         Case ")"
    
66.             If Not isInString Then
    
67.                 FindCloseBracket = i
    
68.                 Exit Function
    
69.             End If
    
70.         Case """"
    
71.             isInString = Not isInString
    
72.         Case Else
    
73.         End Select
    
74.         i = i + 1
    
75.     Loop
    
76.     FindCloseBracket = 0
    
77. End Function
    
78. 
    
79. Function OneDtoTwoD(ar, Optional base As Integer) As Variant    'transepose array of elements > 65535
    
80.     Dim i, retn()
    
81.     ReDim retn(base To base + UBound(ar) - LBound(ar), base To base)  ' transe to base
    
82.     For i = LBound(ar) To UBound(ar)
    
83.         retn(i - LBound(ar) + base, base) = ar(i)
    
84.     Next
    
85.     OneDtoTwoD = retn
    
86. End Function

½Æ»s¥N½X