Jak wyodrębnić tekst w ciągu tekstowym

Question

Mam prosty problem, który mam nadzieję rozwiązać bez użycia VBA, ale jeśli jest to jedyny sposób, w jaki można go rozwiązać, niech tak będzie.

Mam plik z wieloma wierszami (wszystkie kolumny). Każdy wiersz zawiera dane, które wyglądają mniej więcej tak:

1 7,82E-13> gi | 297848936 | ref | XP_00 | 4-wodorotlenek gi | 297338191 | gb | 23343 | randomrandom

2 5,09E-09> gi | 168010496 | ref | xp_00 | 2-pirogronian

etc ...

Co chcę jest jakiś sposób, aby wyodrębnić ciąg liczb, które zaczynają się od „GI |” i kończy się na "|". W przypadku niektórych wierszy może to oznaczać aż 5 gi liczb, dla innych będzie to po prostu jeden.

Co Mam nadzieję, wyjście będzie wyglądać będzie mniej więcej tak:

297848936,297338191

etc ...

Answer 1

Oto bardzo elastyczna odpowiedź VBA za pomocą obiektu regex. Funkcja ta wyodrębnia każdą znalezioną podgrupę (materiał wewnątrz nawiasu), oddzieloną dowolnym ciągiem znaków (domyślnie jest to ",").Można znaleźć informacje na temat wyrażeń regularnych tutaj: http://www.regular-expressions.info/

Można by nazwać tak, zakładając, że pierwszy ciąg jest w A1:

=RegexExtract(A1,"gi[|](\d+)[|]") 

Ponieważ wygląda na wszystkich wystąpieniu z „GI |” po serii liczb, a następnie kolejny „|”, na pierwszej linii w swoim pytaniu, to nie daje to rezultatu:

297848936, 297338191 

Wystarczy uruchomić ten dół kolumny i masz wszystko gotowe!

Function RegexExtract(ByVal text As String, _ 
         ByVal extract_what As String, _ 
         Optional separator As String = ", ") As String 

Dim allMatches As Object 
Dim RE As Object 
Set RE = CreateObject("vbscript.regexp") 
Dim i As Long, j As Long 
Dim result As String 

RE.pattern = extract_what 
RE.Global = True 
Set allMatches = RE.Execute(text) 

For i = 0 To allMatches.count - 1 
    For j = 0 To allMatches.Item(i).submatches.count - 1 
     result = result & (separator & allMatches.Item(i).submatches.Item(j)) 
    Next 
Next 

If Len(result) <> 0 Then 
    result = Right$(result, Len(result) - Len(separator)) 
End If 

RegexExtract = result 

End Function 

Answer 2

tutaj jest (zakładając, że dane są w kolumna A)

=VALUE(LEFT(RIGHT(A1,LEN(A1) - FIND("gi|",A1) - 2), 
FIND("|",RIGHT(A1,LEN(A1) - FIND("gi|",A1) - 2)) -1)) 

Nie najładniejsza formuła, b ut będzie działać, aby wyodrębnić liczbę.

Właśnie zauważyłem, ponieważ masz dwie wartości na wiersz z wynikiem oddzielonym przecinkami. Musisz sprawdzić, czy istnieje drugi mecz, trzeci mecz itp., Aby działał on pod wieloma numerami na komórkę.

w odniesieniu do dokładnej próbki (zakładając, 2 wartości maksymalnie na komórkę) Poniższy kod będzie działać:

=IF(ISNUMBER(FIND("gi|",$A1,FIND("gi|", $A1)+1)),CONCATENATE(LEFT(RIGHT($A1,LEN($A1) 
- FIND("gi|",$A1) - 2),FIND("|",RIGHT($A1,LEN($A1) - FIND("gi|",$A1) - 2)) -1), 
", ",LEFT(RIGHT($A1,LEN($A1) - FIND("gi|",$A1,FIND("gi|", $A1)+1) 
- 2),FIND("|",RIGHT($A1,LEN($A1) - FIND("gi|",$A1,FIND("gi|", $A1)+1) - 2)) 
-1)),LEFT(RIGHT($A1,LEN($A1) - FIND("gi|",$A1) - 2), 
FIND("|",RIGHT($A1,LEN($A1) - FIND("gi|",$A1) - 2)) -1)) 

Jak to na brzydkie? Rozwiązanie VBA może być dla ciebie lepsze, ale zostawię to tutaj dla ciebie.

Aby przejść do 5 liczb, dobrze zbadaj wzór i ręcznie powtarzaj w formule. IT będzie długo!

Answer 3

Najprawdopodobniej najpierw podzielę dane na ograniczniku | za pomocą kreatora konwersji tekstu na kolumny. W programie Excel 2007 znajdującym się w grupie Data, a następnie wybierz opcję Tekst do kolumn. Podaj Pozostałe: i | jako ogranicznik.

Z przykładowych danych, które wysłałeś, wygląda na to, że po wykonaniu tego wszystkie liczby będą znajdować się w tych samych kolumnach, więc możesz po prostu usunąć kolumny, których nie chcesz.

Answer 4

Jako, że inni faceci zaprezentowali rozwiązanie bez VBA ... Przedstawię ten, który go używa. Teraz jest twój telefon, aby go użyć lub nie.

Właśnie zobaczyłem, że @Issun przedstawił rozwiązanie z regex, bardzo ładne! Tak czy inaczej, przedstawi "skromne" rozwiązanie pytania, używając tylko "zwykłego" VBA.

Option Explicit 
Option Base 0 

Sub findGi() 

    Dim oCell As Excel.Range 
    Set oCell = Sheets(1).Range("A1") 

    'Loops through every row until empty cell 
    While Not oCell.Value = "" 

     oCell.Offset(0, 1).Value2 = GetGi(oCell.Value) 
     Set oCell = oCell.Offset(1, 0) 

    Wend 

End Sub 

Private Function GetGi(ByVal sValue As String) As String 

    Dim sResult As String 
    Dim vArray As Variant 
    Dim vItem As Variant 
    Dim iCount As Integer 

    vArray = Split(sValue, "|") 
    iCount = 0 

    'Loops through the array... 
    For Each vItem In vArray 

     'Searches for the 'Gi' factor... 
     If vItem Like "*gi" And UBound(vArray) > iCount + 1 Then 

      'Concatenates the results... 
      sResult = sResult & vArray(iCount + 1) & "," 

     End If 

     iCount = iCount + 1 

    Next vItem 

    'And removes trail comma 
    If Len(sResult) > 0 Then 

     sResult = Left(sResult, Len(sResult) - 1) 

    End If 

    GetGi = sResult 

End Function