[VB6] Funzione Split

[LMondi]

Con il codice sottoriportato attivo un'Array statica, prelevando i vari dati, uno per uno, con la funzione Split; i dati vengono poi assegnati alle rispettive Txt.
Il codice funziona bene, però restituisce i dati in un formato inconsueto - tra doppi apici -: "1000" che non riesco a trasformare in formato numerico.

        Open FileName For Input As FileNum
            ' Ripete fino alla fine del file:
        Do While Not (EOF(FileNum) = True)
            ' Assegna la riga a una variabile:
            Line Input #FileNum, TextLine
            array_riga = Split(TextLine, ",", -1, vbTextCompare)

Avete qualche idea in merito a come fare per ottenere un formato numerico?

[Sypher]

scusa ma nella variabile textline come sono scritti i numeri coi doppi apici?

[LMondi]

Sono scritti: "1000","2000","...

[Sypher]

allora non potresti fare una bella replace dei doppi apici con una stringa vuota prima della splittata?

[LMondi]

Grazie Sypher per l'interessamento.
In effetti ho provato a fare Replace prima dell'assegnazione alle Txt ma non riesco a far funzionare Replace, mi và in errore, mi puoi mostrare un esempio?
Aggiungo un'altra cosa: i dati sono salvati con l'estensione .csv quindi aprendo il file con Excel li vedo tutti nelle singole celle senza apici. Poi accade quanto sopra ...

[Sypher]

mmm vabbè proviamo co la replace intanto sorvoliamo sul fatto che sia un csv...

TextLine = Replace(TextLine,Chr(32),"")

ehm sono un po arrugginito con VB...se non è Chr(32) è Chr(34) il doppio apice

[LMondi]

Ah, ecco: ...Chr(32) ,"")- io mettevo " " " e non funzionava. Ora provo il codice completo.
Per il momento ti ringrazio.

[Sypher]

Originariamente inviato da LMondi
Ah, ecco: ...Chr(32) ,"")- io mettevo " " " e non funzionava.

si l'avevo intuito è classico

[LMondi]

Sypher, funziona alla grande [(Chr34)]!!

[Sypher]

Originariamente inviato da LMondi
Sypher, funziona alla grande [(Chr34)]!!

ovvio