[發問] 比較一堆資料中規則問題，能否判讀

帖子: 38
主題: 7
精華: 0
積分: 48
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2015-4-30
最後登錄: 2016-12-5

3^#

發表於 2016-3-7 08:23 | 只看該作者

回復 2# 准提部林

謝謝板主提醒
附上文字檔~目前是想要針對這文字檔，做資料分析
因為(net DGND ;這種開頭的資料很多筆，在下一筆( net XXX)之前，會提取出下面的狀態，

test0307.rar (3.72 KB)

帖子: 38
主題: 7
精華: 0
積分: 48
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2015-4-30
最後登錄: 2016-12-5

4^#

發表於 2016-3-7 08:27 | 只看該作者

回復 3# boblovejoyce

異常1:
若區間內，只出現一次portRef則判斷(net DGND這個開始，是異常的
這邊強調的是只出現一次portRef
那就會將 DGND 顯示到A列中
於是就繼續掃描下一個(net
異常2:
若區間內，portRef出現多次，若有GND和VDD這兩種字眼，這樣也算是異常
並且列表於儲存格中A列中
目的是不想要GND和VDD 同時出現在同一個 (net 區間內

板主可指教一下嗎?

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

5^#

發表於 2016-3-7 21:42 | 只看該作者

本帖最後由准提部林於 2016-3-7 21:45 編輯

回復 4# boblovejoyce

(net DGND 為開頭, 可判斷
(pt 740 -320))))) 為結尾, 相似的很多, 這就無固定規則可判斷!
尚且文字檔只能找到一個net DGND, 而excel想表現的結果也未模擬!!!

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

6^#

發表於 2016-3-8 11:09 | 只看該作者

回復 1# boblovejoyce
草草完成如下程式，
因為VB的正則表達式功能弱了點
所以又自己寫了 FindCloseBracket 找出匹配的右括號位置

Sub Test()
Dim fn As Integer, allText As String, indexClose As Long
Dim fname
fname = Application.GetOpenFilename()
If TypeName(fname) = "Boolean" Then Exit Sub
fn = FreeFile()
Open fname For Input As #fn
allText = Input$(LOF(1), 1)
Close #fn
Sheets.Add
Cells(1, 1).Resize(, 3) = Array("net", "check", "portRef")
Dim oRegex As Object: Set oRegex = CreateObject("vbscript.regexp")
Dim oMch As Object, oMch2 As Object, x, i As Long, j As Long, endindex As Long
Dim hasVDD As Boolean, hasGND As Boolean
With oRegex
.Global = True
.Pattern = "\(net\s+([^\s()]*)" '(net 開頭，捕捉下一個非空白或()的字組
Set oMch = .Execute(allText)
.Pattern = "\(portRef\s+([^\s()]*)" '(portRef 開頭，捕捉下一個非空白或()的字組
i = 2
For Each x In oMch
endindex = FindCloseBracket(allText, x.firstIndex)
Set oMch2 = .Execute(Mid(allText, x.firstIndex, endindex - x.firstIndex + 1))
Cells(i, 1) = x.subMatches(0)
j = 3
hasVDD = False: hasGND = False
For Each y In oMch2
If InStr(1, y.subMatches(0), "VDD", vbTextCompare) Then hasVDD = True
If InStr(1, y.subMatches(0), "GND", vbTextCompare) Then hasGND = True
Cells(i, j) = y.subMatches(0)
j = j + 1
Next
Cells(i, 2) = IIf(oMch2.Count < 2 Or (hasVDD And hasGND), "X", "O")
i = i + 1
Next
End With
End Sub
' s: input string
' i: index of begin bracket "("
Function FindCloseBracket(ByRef s As String, ByVal i As Long) As Long
Dim isInString As Boolean 'ex : 預防雙引號字串內的 () 誤判
i = i + 1 '從下一個字元開始
Do While i <= Len(s)
Select Case Mid(s, i, 1)
Case "("
If Not isInString Then
i = FindCloseBracket(s, i)
If i = 0 Then Exit Do
End If
Case ")"
If Not isInString Then
FindCloseBracket = i
Exit Function
End If
Case """"
isInString = Not isInString
Case Else
End Select
i = i + 1
DoEvents
Loop
FindCloseBracket = 0
End Function

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

7^#

發表於 2016-3-8 21:51 | 只看該作者

只用簡單的規則，
(net DGND　表示開頭，
遇５個右括號　)))))　為結尾，
若非此規則，不須再參考以下內容！

將文字檔貼至Ａ欄，檢測有異常，在Ｂ欄以文字表示：
Sub TEST()
Dim xR As Range, T$, xH As Range, Cx
[B:B].ClearContents
For Each xR In Range([A1], Cells(Rows.Count, 1).End(xlUp))
　　T = Trim(xR)
　　If T = "(net DGND" Then Set xH = xR: ReDim Cx(3): GoTo 101
　　If xH Is Nothing Then GoTo 101
　　If InStr(xR, "portRef") Then Cx(0) = Cx(0) + 1
　　If T = "(portRef GND" Then Cx(1) = 1: GoTo 101
　　If T = "(portRef VDD" Then Cx(2) = 1: GoTo 101
　　If Right(T, 5) = ")))))" Then
　　　　If Val(Cx(0)) < 2 Then Cx(3) = 1
　　　　If Cx(1) + Cx(2) > 1 Then Cx(3) = 2
　　　　If Cx(3) > 0 Then Range(xH(1, 2), xR(1, 2)) = "異常(" & Cx(3) & ")"
　　　　Set xH = Nothing
　　End If
101: Next
End Sub

參考檔：
http://www.funp.net/634979

帖子: 38
主題: 7
精華: 0
積分: 48
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2015-4-30
最後登錄: 2016-12-5

8^#

發表於 2016-3-9 17:46 | 只看該作者

回復 6# stillfish00
謝謝回覆~可以處理
雖然我有試過數量行數很多時，我跑了一個小時~它才再繼續check和寫入
因為我的資料數量可以達到50萬行以上
然後又有重重的關係~~
如果有CHECK OK的，不需要寫入顯示出來，應該就會快些

帖子: 38
主題: 7
精華: 0
積分: 48
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2015-4-30
最後登錄: 2016-12-5

9^#

發表於 2016-3-9 17:52 | 只看該作者

回復 7# 准提部林

謝謝回覆~
因為規則很多，這只是其中一個規則
我的規則，是在掃描只要有(net
就開始去判斷~
結尾不一定是)))))
結尾應該算是下一個(net之前~

我測試了~在這個固定的規則下，是OK的 (可是我有將CX(0)改成小於3)
逐行執行時，CX(1) CX(2) 始終沒有值
請教為什麼會沒有值?

帖子: 38
主題: 7
精華: 0
積分: 48
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2015-4-30
最後登錄: 2016-12-5

10^#

發表於 2016-3-10 08:37 | 只看該作者

回復 9# boblovejoyce

喔~把這個改成InStr，就有值了~
If InStr(T, "(portRef GND") > 0 Then Cx(1) = 1: GoTo 101
If InStr(T, "(portRef VDD") > 0 Then Cx(2) = 1: GoTo 101

謝謝