HMRC

VERAG_PROG_ALLGEMEIN/Schnittstellen/OPEN_AI/cOpenAI.vb

@@ -22,6 +22,45 @@ Public Class cOpenAI
         ' Console.ReadKey()
     End Sub
 
+    Shared Function askAI_TruckPlate(text) As String
+        'Dim frage As String = "Wie viele Tage braucht ein Versandschein von Istanbul nach München? Gib nur die Zahl zurück."
+
+        'ASKAI_TruckPlate
+
+        Dim Prompt = "Extrahiere das oder die LKW-Kennzeichen aus folgendem Text. Es handelt sich vorwiegend um Kennzeichen aus der Türkei, Osteuropa und dem Balkan. Die Kennzeichen sind entweder zusammengeschrieben oder enthalten Leerzeichen.
+                        Regeln:
+                                Falls kein Kennzeichen im Text vorhanden ist, gib eine leere Zeichenkette zurück.
+                            Falls genau ein Kennzeichen erkannt wird, gib es ohne Leerzeichen zurück.
+                            Falls genau zwei Kennzeichen erkannt werden, gib sie ohne Leerzeichen durch einen / getrennt zurück.
+                            Falls mehr als zwei Kennzeichen erkannt werden, gib eine leere Zeichenkette zurück.
+
+                        Beispiel:
+                        Text: 'Der LKW mit dem Kennzeichen BG 1234 AB wurde kontrolliert, ebenso TR AB123CD'
+                                Erwartete Ausgabe 'BG1234AB/TRAB123CD'
+
+                        Text: 'Keine Kennzeichen gefunden'
+                                Erwartete Ausgabe ''
+
+                        Text: 'Die Fahrzeuge RO 123 ABC, TR 45ABC67, PL 123456, UA AB 1234'
+                                Erwartete Ausgabe ''
+
+                        Text: 'Fahrzeug mit Kennzeichen SRB AB123 und eines mit MD 45 ABC'
+                                Erwartete Ausgabe 'SRBAB123/MD45ABC'
+
+                        Hier ist der zu analysierende Text '{TEXT}'
+
+                        gib nur das extrahierte Kennzeichen bzw. die leere Zeichenkette zurück, ohne weitere Kommentare oder Erklärungen."
+        Console.WriteLine("Go..")
+        Console.WriteLine(Prompt.Replace("{TEXT}", text))
+
+        ' API-Aufruf und Ausgabe der Antwort
+        Return AskOpenAI(Prompt.Replace("{TEXT}", text).Replace("""", "\""").Replace(vbCrLf, " ").Replace(vbLf, " ").Replace(vbCr, " "))
+
+        'Console.WriteLine("Antwort von OpenAI: " & antwort)
+
+        ' Console.WriteLine("Drücke eine beliebige Taste zum Beenden...")
+        ' Console.ReadKey()
+    End Function
 
 
     ' Funktion zur Kommunikation mit OpenAI API (synchrones Verhalten)
@@ -56,12 +95,15 @@ Public Class cOpenAI
 
                     Return answer ' Antwort zurückgeben
                 Else
+                    Console.WriteLine($"Fehler: {response.StatusCode} - {response.Content.ReadAsStringAsync().Result}")
+
                     ' Fehlerausgabe bei API-Problemen
                     Return $"Fehler: {response.StatusCode} - {response.Content.ReadAsStringAsync().Result}"
                 End If
             End Using
         Catch ex As Exception
             ' Allgemeine Fehlerbehandlung
+            Console.WriteLine($"Fehler: {ex.Message}")
             Return $"Fehler: {ex.Message}"
         End Try
     End Function