fork download

copy

Imports System
 
Public Class Test
	Public Shared Sub Main()
		' your code goes here
	End Sub
End Class
 
Function ExtractCapDielectric(Myrange As Range) As String
    Dim regEx As New RegExp
    Dim DielectricList() As String
    Dim Dielectric
    Dim strPattern As String
    Dim CompletePattern
    Dim strInput As String
    Dim strRaplace As String
    Dim strOutput As String
 
 
    DielectricList = Split("A|B|BG|BP|BR|BX|C|C0G|NP0|C0H|C0J|C0K|CH|D|E|F|H3M|JB|M|M3K|N1500|N2000|N2200|N2500|N2800|N4700|N750|P2G|P2H|P3K|P90|R|R2H|R3A|R3L|S2H|S3B|S3L|S3N|SL|SL/GP|T2H|U2J|U2M|X5E|X5F|X5P|X5R|X5S|X5U|X5V|X6S|X6T|X7R|X7R (VHT)|X7S|X7T|X7U|X8G|X8L|X8R|Y5F|Y5P (B)|Y5R|Y5S|Y5U (E)|Y5V (F)|Z4V|Z5P|Z5T|Z5U|Z5V|ZM", "|", -1, vbBinaryCompare)
 
 
    strInput = Myrange.Value
    strPattern = "(\b)(?= )"
    Dielectric = "X7R"
    'CompletePattern = strPattern.Insert(0, Dielectric)
 
    With regEx
        .Global = False
        .MultiLine = False
        .IgnoreCase = True
    End With
 
    ExtractCapDielectric = ""
 
    For Each Dielectric In DielectricList
        'CompletePattern = strPattern.Insert(0, Dielectric)
        regEx.Pattern = CompletePattern
        'regEx.Pattern = CompletePattern
        If regEx.Test(strInput) Then
            Set Matches = regEx.Execute(strInput)
            Value = Matches.Item(0)
            ExtractCapDielectric = Value
            Exit For
        End If
    Next
End Function

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/6SvzbI/prog.vb (9,9) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (10,8) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (11,8) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (12,8) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (13,8) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (14,8) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (15,8) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (16,8) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (17,8) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (20,19) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (23,13) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (24,15) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (25,15) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (28,9) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (29,10) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (30,10) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (31,10) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (32,13) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (34,25) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (36,8) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (38,14) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (40,11) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (41,16) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (42,18) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (43,33) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (44,17) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (45,15) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (46,9) : Error VBNC30203: Not valid as identifier.
/home/6SvzbI/prog.vb (47,13) : Error VBNC30203: Not valid as identifier.
There were 29 errors and 0 warnings.
Compilation took 00:00:00.6614100

Standard output is empty