[VB6] Lettura di un file .txt di soli numeri

[michelepoffe]

Per il progetto che sto sviluppando, utilizzando access, devo leggere determinate righe di un file txt.

il codice che utilizzo è il seguente:

Private Sub RegistraAltezza_Click()

Dim strCartellaProdotti As String
strCartellaProdotti = CurrentProject.Path & "\Cartella_Prodotti\"
Dim CheckEsistefileAltezza As String
CheckEsistefileAltezza = strCartellaProdotti & Me.Codice_EAN & Chr(92) & "altezza.txt"
If Dir(CheckEsistefileAltezza) <> "" Then 'Controlla se esiste un file corretto all'interno della cartella
Call Altezza

Else 'se non esiste
MsgBox "Per registrare le dimensioni è necessario effettuare la misurazione in altezza"
End If

End Sub

Public Sub Altezza()

Dim a As String, filepath As String, linea As Integer, lineadamettereinaltezza01 As Integer

Dim strCartellaProdotti As String
strCartellaProdotti = CurrentProject.Path & "Cartella_Prodotti"

'Scelta delle righe da copiare del .txt
lineadamettereinaltezza01 = 2

filepath = strCartellaProdotti & Me.Codice_EAN & Chr(92) & "altezza.txt"

'Apri e copia le righe del .txt nelle text box
Open filepath For Input As #1
Do Until EOF(1)
Line Input #1, a
linea = linea + 1

If linea = lineadamettereinaltezza01 Then
Me.Altezza01 = a
End If

Loop
Close #1
End Sub [PHP]

Il problema è che il mio file .txt è per es.
"1123"
Ed avendo messo come vincolo la lettura dei soli numeri a causa delle " mi da errore.
Avete dei suggerimenti per completare lo script facendogli leggere solo i numeri??

[cepu96]

Trasformi la stringa in una stringa senza le virgolette in questo modo

Mid(stringadeltxt, 2, stringadeltxt.length-1)

Poi converti il numero nella stringa in un numero (Integer, Double, Long, il tipo che vuoi)
es:

'converte in Integer
CInt(Mid(stringadeltxt, 2, stringadeltxt.length-1))
'oppure converte in Double
CDbl(Mid(stringadeltxt, 2, stringadeltxt.length-1))
'oppure converte in Long
CLong(Mid(stringadeltxt, 2, stringadeltxt.length-1))

spero di esserti stato utile

ciao

[gibra]

Elimina il carattere che non ti serve, in questo caso il doppio apice.

a = Replace(a, Chr(34), "")

[michelepoffe]

ci sono riuscito...grazie milleeeeee...troppo gentili!!!!