VBScript: convertire in stringa

Uno dei maggiori difetti di VBScript è la gestione del tipo di dato. In realtà VBScript non è dichiarativo, però ha comportamenti strani, specie quando legge i dati da un recordset, in quanto eredità il tipo di dato del recordset e da grossi problemi al momento in cui si effettuando delle operazioni booleane di confronto.

Dopo 1000 tentativi di uso delle varie funzioni di conversione tipo (CStr, CInt, …) ho dedotto che il metodo migliore è confrontare delle stringhe, e che la migliore conversione in stringa è quella di aggiungere a un dato un carattere (come si faceva antetempo…).

Ecco quindi un codice ignorante per risolvere il problema:

'converto in stringa
Function ToString(s)
    'debug(s)
    if (isNull(s)) then
        ToString = ""
    else
        tmp = s & "a"
        tmp = left(tmp,len(tmp)-1)
        ToString = tmp
    end if
End Function

Buona settimana cari.