find source

xieguigang · Dec 31, 2024 · a6a8dfb · a6a8dfb
1 parent 9817d7e
commit a6a8dfb
Showing 1 changed file with 17 additions and 11 deletions.
diff --git a/src/metadb/Massbank/MetaLib/NaturalLanguageTerm.vb b/src/metadb/Massbank/MetaLib/NaturalLanguageTerm.vb
@@ -122,22 +122,28 @@ Namespace MetaLib
         <Extension>
         Public Iterator Function ProcessingNaturalLanguageName(synonym As IEnumerable(Of String)) As IEnumerable(Of String)
             For Each name As String In synonym.Distinct
-                Yield name
+                For Each processed As String In ProcessingNaturalLanguageName(name)
+                    Yield processed
+                Next
+            Next
+        End Function
 
-                If name.StartsWith("L-") OrElse name.StartsWith("D-") Then
-                    Dim short$ = name.Substring(2)
+        Public Iterator Function ProcessingNaturalLanguageName(name As String) As IEnumerable(Of String)
+            Yield name
 
-                    Yield [short]
+            If name.StartsWith("L-") OrElse name.StartsWith("D-") Then
+                Dim short$ = name.Substring(2)
 
-                    If [short].EndsWith("ate") Then
-                        Yield [short].Substring(0, [short].Length - 3) & " acid"
-                    End If
-                End If
+                Yield [short]
 
-                If name.EndsWith("ate") Then
-                    Yield name.Substring(0, name.Length - 3) & " acid"
+                If [short].EndsWith("ate") Then
+                    Yield [short].Substring(0, [short].Length - 3) & " acid"
                 End If
-            Next
+            End If
+
+            If name.EndsWith("ate") Then
+                Yield name.Substring(0, name.Length - 3) & " acid"
+            End If
         End Function
 
         <Extension>