eine GUID in VBScript die Ausgabe ignoriert alle Text, nachdem er
-
03-07-2019 - |
Frage
Ich bin eine GUID für die Verwendung in einer klassischen ASP-Anwendung erstellen, von TypeLib verwenden. Aber auch ein einfacher Test, wie die GUID, um den Bildschirm zu schreiben gibt mir Probleme - es gibt die GUID aber ignoriert alles, nachdem es (zum Beispiel HTML-Tags, zusätzliche Worte, alles)
.Hier ist der rudimentäre Code dies zu testen:
Set typeLib = Server.CreateObject("Scriptlet.TypeLib")
myGuid = typeLib.Guid
Response.Write myGuid & " is the new GUID"
Set typeLib = Nothing
Dies wird angezeigt, so etwas wie {9DDB27D1-F034-41D7-BB88-D0D811DB91CE} und das ist es; der Rest des Textes wird ignoriert und wird nicht ausgeschrieben. Allerdings, wenn ich hart Code, die GUID-Wert und Referenz aus einer Variablen, der Rest des Textes erscheint nur in Ordnung. Ich habe explizite Umwandlung in einen String-Wert versucht, vor der Anzeige, aber es passiert immer noch.
Lösung
Ich scheine zu haben, mein eigenes Problem gelöst .. es war etwas extra zu dem Hinzufügen von Text, also musste ich tun:
myGuid = Left(myGuid, Len(myGuid)-2)
und es gibt jetzt in Ordnung. Seltsam.
Andere Tipps
Ich benutze so etwas wie diese
Function GetGuid()
Set TypeLib = CreateObject("Scriptlet.TypeLib")
GetGuid = Left(CStr(TypeLib.Guid), 38)
Set TypeLib = Nothing
End Function
Es fügt ein vbNullChar oder Chr (0) am Ende der GUID. Ersetzen (myGuid, Chr (0), "") wird es beheben. Besser als mit Links oder Mid-Funktionen.
GUID eine Struktur ist und kein String, müssen Sie es als eine Zeichenfolge, die eine ToString () -Methode zur Ausgabe hinzuzufügen.
https://msdn.microsoft. com / fr-fr / library / 97af8hh4 (v = vs.110) aspx
Response.Write myGuid.ToString("D")