Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura di una riga in un file

se io ho il seguente codice:
dim Riga as String
    Open percorso For Input As #1
        Line Input #1, Riga
    Close #1
come faccio a dirgli di mettere nella variabile "Riga"
il numero di riga che voglio io senza usare un banale
for?
grazie a chi mi risponderà! :)
--
Licantrop0 / HackZ ExtremE Crew from 2001

 for?
Non puoi !
In alternativa, se puoi, usa un file INI con le relative funzioni
dell'API...


hummm... purtroppo qui non posso usare file ini... cmq,
potrebbero servirmi per un'altra cosa... dov'è che posso
trovare istruzioni su come usare queste api?

 trovare istruzioni su come usare queste api?
su MSDN, come sempre  :)
cerca GetPrivateProfileString() e relative ...
--
Faber

 trovare istruzioni su come usare queste api?
In un modulo metti:
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias _
    "GetPrivateProfileIntA" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, ByVal nDefault As Long, _
    ByVal lpFileName As String) As Long
' Dichiarazione per leggere il valore di una voce in una sezione:
Public Declare Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, ByVal lpDefault As String, _
    ByVal lpReturnedString As String, ByVal nSize As Long, _
    ByVal lpFileName As String) As Long
' Dichiarazione per scrivere il valore di una voce in una sezione:
Public Declare Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
    ByVal lpString As Any, ByVal lpFileName As String) As Long
' Dichiarazione per eliminare una voce da una sezione:
Declare Function DeletePrivateProfileItem Lib "kernel32" _
    Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
    ByVal lpString As Long, ByVal lpFileName As String) As Long
' Dichiarazione per eliminare una sezione:
Public Declare Function DeletePrivateProfileSection Lib "kernel32" _
    Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Long, _
    ByVal lpString As Long, ByVal lpFileName As String) As Long
' Dichiarazione per ricavare l'elenco delle sezioni:
Public Declare Function GetListPrivateProfileSection Lib "kernel32" _
    Alias "GetPrivateProfileStringA" _
    (ByVal lpApplicationName As Long, ByVal lpKeyName As Long, _
    ByVal lpDefault As String, ByVal lpReturnedString As String, _
    ByVal nSize As Long, ByVal lpFileName As String) As Long
' Dichiarazione per ricavare l'elenco delle voci presenti in una sezione:
Public Declare Function GetPrivateProfileItems Lib "kernel32" _
    Alias "GetPrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Long, _
    ByVal lpDefault As String, ByVal lpReturnedString As String, _
    ByVal nSize As Long, ByVal lpFileName As String) As Long
' Dichiarazione per ricavare l'elenco delle voci
' ed i valori presenti in una sezione:
Public Declare Function GetPrivateProfileSection Lib "kernel32" _
    Alias "GetPrivateProfileSectionA" _
    (ByVal lpAppName As String, ByVal lpReturnedString As String, _
    ByVal nSize As Long, ByVal lpFileName As String) As Long
' Dichiarazione per scrivere un elenco di voci e valore in una sezione:
Public Declare Function WritePrivateProfileSection Lib "kernel32" _
    Alias "WritePrivateProfileSectionA" _
    (ByVal lpAppName As String, ByVal lpString As String, _
    ByVal lpFileName As String) As Long
Supponiamo che il tuo file sia:
[NOME_SEZIONE]
NomeVoce= Cippalippa
Allora nel tuo form usi ad esempio (per leggere):
    Dim FileINI As String
    Dim Sezione As String
    Dim Voce As String
    Dim Buffer As String
    Dim Dato As String
    Dim LunghezzaDato As Long
    FileINI = PercorsoConNomeFileIni
    Sezione = "NomeSezione"
    Voce = "NomeVoce"
    Buffer = Space(250)
    LunghezzaDato = GetPrivateProfileString(Sezione, Voce, "", Buffer, 250,
FileINI)
    Dato= Left(Buffer, LunghezzaDato)
ALOHA!