PrivateProfile String zu Variant ohne Gänsefüßchen

[Kollyn]

Hi,

ich habe folgendes Problem, ich lese aus einer Textdatei diverse Strings ein, unter anderem auch:

Dateform="dd.mm.yyyy"
Datelang=wdRomanian
Datetyp=wdCalendarWestern

Jetzt muss ich für den Folgenden Befehl:

Selection.InsertDateTime Dateformat, False, False, Datelang, Datetyp

Diese drei Strings in Variant umwandeln.

Dazu habe ich die auch als Variant deklariert, und und habe nun versucht diesen Variabeln vom Typ Variant die Inhalte der Strings zu übergeben.

 Datelang = m_langini.Datelang ' m_langini ist eine Objekt dre klasse die die Strings einließt, und Datelang gibt ein String zurück.

Leider ist das Ergebniss:

Datelang = "wdRomanian"
Es muss aber
Datelang = wdRomanian
sein. Ich habe diverse DInge versucht, von Cvar() über Schreiben der IEnzelnen Positionen innerhalb des Strings, aber immer gibnt er mir die " mit Raus. habe natürlich auch Replace versucht.

 Datelang = Replace m_langini.Datelang , """",""

Auch das war leider ohne erfolg.

 

[Rockstady11]

Ich versuche einfach mal dir zu helfen, aber ohne Garantie auf Erfolg.

Habe gerade eine Methode gefunden, wie es ganz gut geht, aber wahrscheinlich ist das nicht die effektivste, aber schaus dir trotzdem mal an:

  [1]      Anzahl = TextBox1.Text.Length
  [2]      i = 1
  [3]      While i < Anzahl - 1
  [4]          TextBox2.Text = TextBox2.Text + TextBox1.Text.Chars(i)
  [5]          i = i + 1
  [6]      End While

[1] Ich zähle zuerst die Länge des ersten Strings und speichere diesen in Anzahl.
[2] i initialisieren
[3] Schleife läuft solange bis alle Zeichen, bis auf das erste und letzte ausgelesen sind
[4] In String2 werden die Buchstaben ohne die Anführungszeichen gespeichert
[5] i inkrementieren
[6] Ende


So, alles verstanden und hat es geklappt?