Okay... shot in the dark, but I'll try.
I'm running my Cad Extractor and it crashes on this procedure always on a certain drawing.
But I don't think it has anything to do with the procedure, but I could be wrong.
Any ideas anyone?
Private Shared Function DetectLineNumberPattern(ByVal s_AcadText As String) As SFR_LineNumber_Pattern
'Debug.Print("Running: GetLineNumberPattern")
'Catch Exceptions
If s_AcadText.Length = 0 Or String.IsNullOrEmpty(s_AcadText) Then
'Debug.Print("Caught LineNumber Null Exception")
Return SFR_LineNumber_Pattern.Pattern00_Other
Exit Function
End If
'----------------------------------------<START PATTERN MATCHING>----------------------------------------------'
'Debug.Print("Checking Patterns")
'<<PATERN 1>>
If Regex.IsMatch(s_AcadText, _
"(^[A-Za-z]{1,4}\d{1,6}-{1}[A-Za-z]{1,6}\d{0,3}[A-Za-z]{0,5}-{1}\d{1}\s{1}\d{1,2}/{1}\d{1,2}\x22)|" & _
"(^[A-Za-z]{1,4}\d{1,6}-{1}[A-Za-z]{1,6}\d{0,3}[A-Za-z]{0,5}-{1}\s{0,2}\d{1}/{0,1}\d{0,1}\x22)|" & _
"(^[A-Za-z]{1,4}\d{1,6}-{1}\d{3}\35{1}[A-Za-z]{0,5}-{1}\d{1,2}\x22)|" & _
"(^[A-Za-z]{1,4}\d{1,6}-{1}\d{3}\35{1}[A-Za-z]{0,5}-{1}\d{1,2}\s{1}\d{1,2}/{1}\d{1,2}\x22)|" & _
"(^[A-Za-z]{1,4}\d{1,6}-{1}[A-Za-z]{1,6}-\d{0,3}\d{1,2}\x22)") Then
'Debug.Print("Checked matches Pattern 1")
Return SFR_LineNumber_Pattern.Pattern01_Com_Num_Spec_Size_Ins
'<<PATTERN 2>>
ElseIf Regex.IsMatch(s_AcadText, "^([A-Za-z]{1,4}-{1}\d{1,6}-{1}[A-Za-z]{1,4}\d{0,3}[A-Za-z]{0,2}-{1}\d{1,2}\x22)|" & _
"^([A-Za-z]{1,4}-{1}\d{1,6}-{1}[A-Za-z]{1,4}\d{0,3}[A-Za-z]{0,2}-{1}\s{0,1}\d{1,2}\s{0,2}/{1}\d{1,2}\x22)") Then
'Debug.Print("Checked matches Pattern 2")
Return SFR_LineNumber_Pattern.Pattern02_Com_Dash_Num_Spec_Size
'<<PATTERN 3>>
ElseIf Regex.IsMatch(s_AcadText, "^([A-Za-z]{1,4}-{1}\d{1,6}-{1}\d{1,2}\x22-{1}[A-Za-z]{1,4}\d{0,3}[A-Za-z]{0,2})|" & _
"^([A-Za-z]{1,4}-{1}\d{1,6}-{1}\d{1,2}\s{1}\d{1,2}/{1}\d{1,2}\x22-{1}[A-Za-z]{1,4}\d{0,3}[A-Za-z]{0,2})") Then
'Debug.Print("Checked matches Pattern 3")
Return SFR_LineNumber_Pattern.Pattern03_Com_Dash_Num_Size_Spec_Ins
.... etc End If
