<\/p>\n
Listing 1: Beispiel für eine JSON-Datei<\/span><\/b><\/p>\n JSON heißt JavaScript Object Notation und ist wie XML ein Format, mit dem Daten strukturiert gespeichert werden können. Als Visual Basic-Entwickler hat man üblicherweise nicht viele Berührungspunkte mit dieser Notation. Wenn man jedoch gelegentlich mit Webservices beziehungsweise Rest APIs arbeitet, findest der Datenaustausch entweder mit XML oder JSON statt. Während es für den Zugriff auf den Inhalt von XML-Dokumenten die “Microsoft XML, vX.0”-Bibliothek gibt, ist man bei JSON auf Lösungen von Drittherstellern angewiesen. In diesem Fall nutzen wir eine Bibliothek von Tim Hall und eine Erweiterung im Eigenbau, mit der wir relativ einfach auf die Daten in JSON-Dokumenten zugreifen können.<\/b><\/p>\n Wer mit Rest APIs wie mit dem aktuell gefragten Webservice von OpenAI arbeitet, bekommt von diesen Antworten entweder im XML- oder im JSON-Format. Wie Du die Rest API von OpenAI ansprichst, um die dahinter stehende, sogenannte “künstliche Intelligenz” zu nutzen, erklären wir im Artikel OpenAI mit VBA <\/b>(www.vbentwickler.de\/355<\/b>). Das Ergebnis eines solchen Aufrufs sieht wie in Listing 1 aus.<\/p>\n Listing 1: Beispiel für eine JSON-Datei<\/span><\/b><\/p>\n Ein solches Ergebnis können wir in eine String<\/b>-Variable einfügen und dann mithilfe von Zeichenketten-Funktionen die gewünschten Informationen herausfiltern. Wenn wir für das JSON-Dokument aus dem Beispiel etwa den Inhalt des Elements text <\/b>erhalten wollen, könnten wir wie folgt vorgehen – und hier gehen wir davon aus, dass das JSON-Dokument nicht so schön formatiert daherkommt wie im abgebildeten Listing, sondern ohne Zeilenumbrüche und ohne Einrückungen. Genau genommen wären die formatierenden Elemente beim Auslesen von Daten per VBA auch eher hinderlich (siehe Listing 2). Hier haben wir das zu untersuchende JSON-Dokument in die Variable strJSON <\/b>geschrieben. Dann suchen wir mit der InStr<\/b>-Funktion nach dem ersten Auftreten des Elements text<\/b> mit den umschließenden Anführungszeichen und dem folgenden Doppelpunkt – gefolgt sicherheitshalber noch vom Anführungszeichen des gesuchten Wertes: “”text””:””<\/b><\/p>\n Listing 2: Parsen auf herkömmliche Art mit Zeichenkettenfunktionen<\/span><\/b><\/p>\n Diese Position merken wir uns mit der Variablen lngStart<\/b>. Ist diese gleich 0<\/b>, wurde der Text nicht gefunden – an dieser Stelle geschieht nichts weiter und die Prozedur wird beendet. Wurde allerdings eine Position gefunden, in diesem Beispiel 131<\/b>, ist die Bedingung der If…Then<\/b>-Bedingung erfüllt. Da wir aber eigentlich die Startposition des Inhalts von text <\/b>haben wollen, zählen wir noch die Länge der Zeichenkette, die dem gesuchten Text vorausgeht, hinzu. Nun benötigen wir noch die Endposition des einzulesenden Textes. Dazu gehen wir davon aus, dass dieser durch ein Anführungszeichen mit einem folgenden Komma abgeschlossen wird. Die Position dieser Fundstelle ermitteln wir wieder mit InStr<\/b>, diesmal allerdings mit der Position aus lngStart <\/b>als Startposition. Finden wir auch hier einen Wert, können wir anschließend mit der Mid<\/b>-Funktion den gesuchten Text extrahieren und beispielsweise im Direktbereich ausgeben.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>{\r\n \"id\":\"cmpl-6kCY6I3xWbEUljecYvr9nKV5GsY3s\",\r\n \"object\":\"text_completion\",\r\n \"created\":1676469346,\r\n \"model\":\"text-davinci-003\",\r\n \"choices\":[\r\n {\r\n \"text\":\"\\n\\nLeider gibt es keine native OpenAI-Integration in Microsoft Office. Wenn Sie OpenAI jedoch in \r\n Microsoft Office verwenden möchten, können Sie versuchen, eine Lösung zu implementieren, die OpenAI-\r\n APIs verwendet, um die Anwendungen in Ihrer Office-Suite zu erweitern. Solche Lösungen beinhalten \r\n normalerweise die Entwicklung eigener Apps und Add-Ins, die OpenAI-APIs verwenden, um bestimmte \r\n Funktionen in Microsoft Office bereitzustellen.\",\r\n \"index\":0,\r\n \"logprobs\":null,\r\n \"finish_reason\":\"stop\"\r\n }\r\n ],\r\n \"usage\":{\r\n \"prompt_tokens\":14,\r\n \"completion_tokens\":146,\r\n \"total_tokens\":160\r\n }\r\n}<\/pre>\nPublic Sub <\/span>JSONPerZeichenkette()\r\n Dim <\/span>strJSON As String<\/span>\r\n Dim <\/span>strText As String<\/span>\r\n Dim <\/span>lngStart As Long<\/span>\r\n Dim <\/span>lngEnde As Long<\/span>\r\n strJSON = strJSON & \"{\"\"id\"\":\"\"cmpl-6kCY6I3xWbEUljecYvr9nKV5GsY3s\"\",\"\"object\"\":\"\"text_completion\"\",\" _\r\n & \"\"\"created\"\":1676469346,\"\"model\"\":\"\"text-davinci-003\"\",\"\"choices\"\":[{\"\"text\"\":\"\"\\n\\nLeider gibt es \" _\r\n & \"keine native OpenAI-Integration in Microsoft Office. ...\"\",\"\"index\"\":0,\"\"logprobs\"\":null,\" _\r\n & \"\"\"finish_reason\"\":\"\"stop\"\"}],\"\"usage\"\":{\"\"prompt_tokens\"\":14,\"\"completion_tokens\"\":146,\" _\r\n & \"\"\"total_tokens\"\":160}}\" & vbCrLf<\/span>\r\n lngStart = InStr<\/span>(1, strJSON, \"\"\"text\"\":\"\"\")\r\n If <\/span>Not<\/span> lngStart = 0 Then<\/span>\r\n lngStart = lngStart + Len<\/span>(\"\"\"text\"\":\"\"\")\r\n lngEnde = InStr<\/span>(lngStart, strJSON, \"\"\",\")\r\n If <\/span>Not<\/span> lngEnde = 0 Then<\/span>\r\n strText = Mid<\/span>(strJSON, lngStart, lngEnde - lngStart)\r\n Debug.Print<\/span> strText\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nVor- und Nachteile dieser Vorgehensweise<\/h2>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t