Мне не удалось реализовать ни одно из указанных выше решений, вероятно, мое плохое объяснение необходимости. Я решил это в коде, не используя Regex. Спасибо всем, кто нашел время, чтобы помочь. Для тех, кто думал, что это домашнее задание, это не так.
Вот некоторые примеры данных.
нужно это
I INDY2 'INDY VECTOR DP ДЛЯ ФАЙЛИНГА' 041802 REM 59268640
I JODUB3 'AIRWAY FOR JODUB SID' 051205 CLW 59268649
Не нужно это
I J149 'GDK 59265224
I APE074 '43092 REF 59265777
Вот как я тестировал код.
Dim IsSidStar As Boolean = False
If aAirways.Name.Length > 2 Then
Dim a2ndChar As Char = aAirways.Name(1)
Dim alastChar As Char = aAirways.Name(aAirways.Name.ToString.Length - 1)
Dim a2ndlastChar As Char = aAirways.Name(aAirways.Name.ToString.Length - 2)
If Char.IsLetter(a2ndChar) = True AndAlso Char.IsNumber(alastChar) = True AndAlso Char.IsNumber(a2ndlastChar) = False Then
IsSidStar = True
End If
End If