---

Hallo zusammen,
ich habe ein CATScript erstellt in dem ich die Split-Funktion verwende.
Wenn die Variable, der das Split zugeordnet ist, bereits deklariert ist, laufe ich auf ein Type Mismatch.
Ich habe festgestellt, dass der Fehler in CATVBA nicht auftritt.
Was habe ich falsch deklariert?
Im Code sind die Unterschiede der Subs fett markiert.

Code:

---

Language="VBSCRIPT"

Sub CATMain()
NoDeclaration 'Sub läuft als CATScript durch
Declarated 'Sub läuft nicht als CATScript durch, aber in CATVBA

End Sub

Sub NoDeclaration()
Dim sInput As String
'arrOutput() ohne Deklaration

sInput = "394.43,-2692.45,-404.98"

arrOutput = Split(sInput,",")

Message = "arrOutput"
For i=0 To Ubound(arrOutput)
Message = Message & Chr(13) & arrOutput(i)
Next
MsgBox Message

End Sub

Sub Declarated()
Dim sInput As String
'Dim arrOutput() 'Type Mismatch
Dim arrOutput() As String 'Type Mismatch
'Dim arrOutput() As Variant 'Type Mismatch

sInput = "394.43,-2692.45,-404.98"

arrOutput = Split(sInput,",")

Message = "arrOutput"
For i=0 To Ubound(arrOutput)
Message = Message & Chr(13) & arrOutput(i)
Next
MsgBox Message

End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus Lionel

Ich CATScript funktioniert es wenn du arrOutput nicht als Array deklarierst sondern nur als String oder Variant.
Funktioniert das dann auch in VBA?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Unter VBA erhalte ich die Fehlermeldung:

Code:

---

Compile Error: Expected array

---

Und im Watch-Fenster steht:

Code:

---

Expression: arrOutput
Value: <Can't compile module>

---

Für mich ist diese Lösung bereits ausreichend. Ich habe den Quelltext kommentiert, falls der Code in VBA verwendet werden soll.

Code:

---

Sub CATMain()
Dim sInput As String
'Dim arrOutput() As String 'Declaration in VBA
Dim arrOutput As String 'Declaration in CATScript

sInput = "394.43,-2692.45,-404.98"

arrOutput = Split(sInput,",")

Message = "arrOutput"
For i=0 To Ubound(arrOutput)
Message = Message & Chr(13) & arrOutput(i)
Next
MsgBox Message

End Sub

---

[Diese Nachricht wurde von Lionel Hutz am 08. Okt. 2020 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP