Typ-Konflikt Variant und String

[ralph71]

Hallo,
ich möchte ein Array "Var1" (Typ Variant) mit einem Mulivalue-Feld "Liste" aus einem Dokument vergleichen.

Code (stark verkürzt):
Redim results(5)
Dim Var1 As Variant
Dim temp As Variant
temp = doc.Getitemvalue("Liste")
Var1 = FullTrim(results)


Inhaltlich sind beide Elemente im Debugger gleich, aber die Typen unterschiedlich:

Code

Var1 Typ Variant
[0] Typ Variant
[1] Typ Variant

temp Typ Variant
[0] Typ String
[1] Typ String

Dh ich kann sie jetzt nicht vergleichen. wie kann ich die Typen angleichen?

Vielen Dank!

[umi]

Vor dem Vergleich der Elemente die Variants auf String convertieren ?

[ralph71]

Wie denn bitte?
so nicht:

Code

Dim term1 As String
term1 = CStr(temp)

 

[Peter Klett]

Code

For i = 0 To Ubound (Var1)
   If Cstr (Var1 (i)) = temp (i) Then
      ...
   End If
Next i

oder (nicht getestet)

Code

Forall v In Var1
   v = Cstr (v)
End Forall

[ralph71]

der erste Ansatz setzt voraus, dass die Anzahl an Einträgen gleich ist.
Wäre aber möglich, wenn ich vorher die Anzahl vergleiche.


der zweite Ansatz soll das zum Ergebnis haben:

Code

Var1 Typ Variant
[0] Typ String
[1] Typ String

Richtig? Macht "er" aber nicht. "Er" macht gar nix.

[Peter Klett]

der erste Ansatz setzt voraus, dass die Anzahl an Einträgen gleich ist.
Wäre aber möglich, wenn ich vorher die Anzahl vergleiche.

Natürlich, das ist ja nur ein Denkansatz und keine fertige Lösung

der zweite Ansatz soll das zum Ergebnis haben:

Code

Var1 Typ Variant
[0] Typ String
[1] Typ String

Richtig? Macht "er" aber nicht. "Er" macht gar nix.

Deshalb schrieb ich "nicht getestet", war mir nicht sicher, ob das so geht.

Gegenfrage, wie willst Du denn vergleichen? Du kannst die beiden Variablen in Script sowieso nicht direkt vergleichen

If temp = Var1 Then ...

geht nicht, Du musst eh die einzelnen Elemente ansehen. Was ist, wenn die Elemente gleich, aber in anderer Reihenfolge stehen? Ist das dann korrekt, oder nicht? Davon steht bisher nichts in der Fragestellung.

Bei zwingend gleicher Reihenfolge kannst Du auch mit Join arbeiten, oder sortierst die Arrays vorher, und dann gibt es noch die Möglichkeit, dass ein Element doppelt sein kann.

If Join (temp, Chr (9)) = Join (Var (Chr (9)) Then ...

Hängt alles von Deiner Aufgabenstellung ab ...

[Peter Klett]

Noch ein Ansatz, sogar getestet

Redim results (5) As String


EDIT: Falsch getestet, wenn results schon Variants enthält, geht das nicht mehr, aber am Anfang des Scriptes, das nicht bekannt ist, wäre es wohl möglich

[ralph71]

Redim results (5) As String --> Funktioniert korrekt.
ABER: Du hast Recht, die Variablen kann ich trotzdem nicht vergleichen.

Ich verfolge daher Ansatz 1 in Kombination mit "Redim results (5) As String"

Code

For i = 0 To Ubound (Var1)
   If Var1 (i) = temp (i) Then
      ...
   End If
Next i

Var1 und temp werden vorher sortiert, die Anzahl an Einträgen überprüft und dann einzeln verglichen.
So, funktioniert!
Danke für die Hilfe!