Why it makes sense to use Mistral and GP-4

[Theo Gottwald]

Due to the current legal disputes regarding copyrights, it seems that OpenAI has decided that ChatGPT struggles to generate complete answers. Even with script code, it often omits lines and instead writes "please complete this".

Code Select Expand

        r = Q(U01(%IDX_Firmenname, i), U02, a) & U02 & _
            Q(U01(%IDX_NamenszusatzTitel, i), U02, a) & U02 & _
            Q(U01(%IDX_Vorname, i), U02, a) & U02 & _
            Q(U01(%IDX_ZweiterVornameMittelname, i), U02, a) & U02 & _
           '... Continue for each element
            Q(U01(%IDX_Flag4, i), U02, a)
       
The good thing is that Mistral doesn't do that. You can now take this code, give it to Mistral and say, "Please finish this code for us." 🤖💬🚫📝👍

PS: The generated code below will really compile. It must have been done by AI.


#OpenAI #ChatGPT #Mistral #Copyrights #AI #LegalDisputes #CodeGeneration #CompleteAnswers #Innovation #Technology #ArtificialIntelligence #NoOmissions #Efficiency #Collaboration #Future #ExcitingTimes 🤖💬🚫📝👍

Code Select Expand

Function ArrToCSV(ByRef U01() As String, ByVal Delim As String) As String
    Local i As Long
    Local CSV As String, a As String
    a = Chr$(34) ' Define a as the double quote character for enclosing fields if needed

    ' Iterate through each "row" of the array
    For i = LBound(U01, 2) To UBound(U01, 2)
        Local S01, S02, S03, S04, S05, S06, S07, S08, S09, S10, _
              S11, S12, S13, S14, S15, S16, S17, S18, S19, S20, _
              S21, S22, S23, S24, S25, S26, S27, S28, S29, S30, _
              S31, S32, S33, S34, S35, S36, S37, S38, S39, S40, _
              S41, S42, S43, S44, S45 As String

        ' QuoteString function is used here for each field
        S01 = QuoteString(U01(%IDX_Firmenname, i), Delim, a)
        S02 = QuoteString(U01(%IDX_NamenszusatzTitel, i), Delim, a)
        S03 = QuoteString(U01(%IDX_Vorname, i), Delim, a)
        S04 = QuoteString(U01(%IDX_ZweiterVornameMittelname, i), Delim, a)
        S05 = QuoteString(U01(%IDX_Nachname, i), Delim, a)
        S06 = QuoteString(U01(%IDX_Telefon1, i), Delim, a)
        S07 = QuoteString(U01(%IDX_MobilTelefon, i), Delim, a)
        S08 = QuoteString(U01(%IDX_Telefon2, i), Delim, a)
        S09 = QuoteString(U01(%IDX_Telefax, i), Delim, a)
        S10 = QuoteString(U01(%IDX_Email1, i), Delim, a)
        S11 = QuoteString(U01(%IDX_Email2, i), Delim, a)
        S12 = QuoteString(U01(%IDX_Strasse, i), Delim, a)
        S13 = QuoteString(U01(%IDX_Hausnummer, i), Delim, a)
        S14 = QuoteString(U01(%IDX_PLZ, i), Delim, a)
        S15 = QuoteString(U01(%IDX_OrtStadt, i), Delim, a)
        S16 = QuoteString(U01(%IDX_Land, i), Delim, a)
        S17 = QuoteString(U01(%IDX_BundeslandKantonProvinz, i), Delim, a)
        S18 = QuoteString(U01(%IDX_Kontoinhaber, i), Delim, a)
        S19 = QuoteString(U01(%IDX_Bankname, i), Delim, a)
        S20 = QuoteString(U01(%IDX_IBAN, i), Delim, a)
        S21 = QuoteString(U01(%IDX_BIC_SWIFT, i), Delim, a)
        S22 = QuoteString(U01(%IDX_PaypalEmail, i), Delim, a)
        S23 = QuoteString(U01(%IDX_VertriebspartnerID, i), Delim, a)
        S24 = QuoteString(U01(%IDX_Multiplier, i), Delim, a)
        S25 = QuoteString(U01(%IDX_RegisterDate, i), Delim, a)
        S26 = QuoteString(U01(%IDX_RootVPID, i), Delim, a)
        S27 = QuoteString(U01(%IDX_UsePaypal, i), Delim, a)
        S28 = QuoteString(U01(%IDX_JoinDate, i), Delim, a)
        S29 = QuoteString(U01(%IDX_Level_from_Top, i), Delim, a)
        S30 = QuoteString(U01(%IDX_Level_Downline, i), Delim, a)
        S31 = QuoteString(U01(%IDX_Abzweige, i), Delim, a)
        S32 = QuoteString(U01(%IDX_Unterhandler, i), Delim, a)
        S33 = QuoteString(U01(%IDX_Last_Change, i), Delim, a)
        S34 = QuoteString(U01(%IDX_ProvisionA, i), Delim, a)
        S35 = QuoteString(U01(%IDX_ProvisionB, i), Delim, a)
        S36 = QuoteString(U01(%IDX_ProvisionC, i), Delim, a)
        S37 = QuoteString(U01(%IDX_NotizenAnmerkungen, i), Delim, a)
        S38 = QuoteString(U01(%IDX_AnmerkungenSchulungenEtc, i), Delim, a)
        S39 = QuoteString(U01(%IDX_RueckspracheErforderlich, i), Delim, a)
        S40 = QuoteString(U01(%IDX_ProblemBeiAuszahlung, i), Delim, a)
        S41 = QuoteString(U01(%IDX_Aktiv, i), Delim, a)
        S42 = QuoteString(U01(%IDX_Flag1, i), Delim, a)
        S43 = QuoteString(U01(%IDX_Flag2, i), Delim, a)
        S44 = QuoteString(U01(%IDX_Flag3, i), Delim, a)
        S45 = QuoteString(U01(%IDX_Flag4, i), Delim, a)

        ' Concatenate all strings to form a single CSV row
        Local TempRow As String
        TempRow = S01 & Delim & S02 & Delim & S03 & Delim & S04 & Delim & S05 & Delim & _
                  S06 & Delim & S07 & Delim & S08 & Delim & S09 & Delim & S10 & Delim & _
                  S11 & Delim & S12 & Delim & S13 & Delim & S14 & Delim & S15 & Delim & _
                  S16 & Delim & S17 & Delim & S18 & Delim & S19 & Delim & S20 & Delim & _
                  S21 & Delim & S22 & Delim & S23 & Delim & S24 & Delim & S25 & Delim & _
                  S26 & Delim & S27 & Delim & S28 & Delim & S29 & Delim & S30 & Delim & _
                  S31 & Delim & S32 & Delim & S33 & Delim & S34 & Delim & S35 & Delim & _
                  S36 & Delim & S37 & Delim & S38 & Delim & S39 & Delim & S40 & Delim & _
                  S41 & Delim & S42 & Delim & S43 & Delim & S44 & Delim & S45

        ' Add the completed row to the CSV string, followed by a newline
        CSV = CSV & TempRow & $CrLf
    Next i

    ' Remove the last newline from the CSV string
    Function = Trim$(CSV, $CrLf)
End Function


Code Select Expand

Sub Generate_CSV_Headline(ByRef U01 As String)

    ' Declare local variables to hold the column names
    Register ColumnName As Long
    Dim Headline$

    ' Initialize the headline string
    Headline$ = ""

    ' Read each column name from the DATA statements and append it to the headline string
    For ColumnName = 1 To DataCount
        If ColumnName > 1 Then
            Headline$ = Headline$ + $O_Delim
        End If
        Headline$ = Headline$ + Read$(ColumnName)
    Next ColumnName

    ' Print the headline string to the console
    U01=Headline$
Exit Sub
'-------------------------------------
    ' Declare string constants within the source code to be read by READ$ function
    Data "Firmenname","NamenszusatzTitel","Vorname","ZweiterVornameMittelname","Nachname"
    Data "Telefon1","MobilTelefon","Telefon2","Telefax","Email1","Email2","Strasse"
    Data "Hausnummer","PLZ","OrtStadt","Land","BundeslandKantonProvinz"
    Data "Kontoinhaber","Bankname","IBAN","BIC_SWIFT","PaypalEmail"
    Data "VertriebspartnerID","Multiplier","RegisterDate","RootVPID","UsePaypal"
    Data "JoinDate","Level_from_Top","Level_Downline","Abzweige","Unterhandler"
    Data "Last_Change","ProvisionA","ProvisionB","ProvisionC","NotizenAnmerkungen"
    Data "AnmerkungenSchulungenEtc","RueckspracheErforderlich","ProblemBeiAuszahlung"
    Data "Aktiv","Flag1","Flag2","Flag3","Flag4"

End Sub