[VB6] Gestione INI Files

[FinalFantasy]

C'è un qualche dll per gestire i file ini?
Faccio un esempio:

[ItaEng]
Ciao=Hello

[cik]

ho visto delle API su www.allapi.net ma non le ho mai usate

[FinalFantasy]

Originariamente inviato da cik
ho visto delle API su www.allapi.net ma non le ho mai usate

Scusa cik, puoi speigarmi cosa è API? Lo vedo ovunque senza sapere cosa sia. Magari sapendolo saprò orientarmi meglio

[Mabi]

Qui trovi Xini per la gestione dei file INI.

[Kylnas]

Originariamente inviato da FinalFantasy
Scusa cik, puoi speigarmi cosa è API? Lo vedo ovunque senza sapere cosa sia. Magari sapendolo saprò orientarmi meglio

Le API sono semplicemente delle funzion, nè più nè meno.

Per la gestione dei files INI io ho un modulo VB che li gestisce perfettamente, se vuoi te la spedisco.

Ho anche trasformato il modulo in un dll, quindi se vuoi ti spedisco quella.

[FinalFantasy]

valeriogiuffrida@hotmail.com

Come uso il DLL? Per favore metti in dettaglio quello che c'è da sapere

Grazie ancora

[michele79]

copia questo codice in un modulo:

Option Explicit

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, _
  ByVal lpString As Any, _
  ByVal lpFileName As String) As Long

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, _
  ByVal lpDefault As String, _
  ByVal lpReturnedString As String, _
  ByVal nSize As Long, _
  ByVal lpFileName As String) As Long

Public IniFileName As String

Public Function LeggiIni(sezione As String, chiave As String, default As String) As String
  Dim stringa As String, buffer As Long, ret As Integer
  buffer = 255
  stringa = String(buffer, Chr(0))
  ret = GetPrivateProfileString(sezione, chiave, default, _
        stringa, buffer, IniFileName)
  LeggiIni = stringa
End Function

Public Function ScriviIni(sezione As String, chiave As String, valore As String) As Long
  ScriviIni = WritePrivateProfileString(sezione, chiave, _
              valore, IniFileName)
End Function

passi il path del file ini ad esempio:

Private Sub Form_Load()
IniFileName = "app.path & "\tuo_file.ini"

così li leggi :

valore= Val(LeggiIni("ItaEng", "ciao", "0"))
nella variabile valore hai il valore di "ciao"

così lo scrivi :

a = ScriviIni("ItaEng", "ciao", "hello")   ---> quell' "a=" se non lo metti da errore ...ma non so perchè :quipy: (al posto di "a" ovviamente puoi mettere quello che vuoi)
gli passi la sezione ---> ItaEng
la chiave ---> ciao
e il valore che deve assumere ---> hello

[FinalFantasy]

Ma se io voglio mettere questa mazzata di codice in un DLL e usarlo anche in altre applicazioni, come si rikiamano i dll? Cosa devo fare x l'esatezza?

[michele79]

beh non ho mai creato una dll,pero puoi salvare il modulo e richiamarlo in altri progetti!:quipy:

[Kylnas]

Originariamente inviato da FinalFantasy
Ma se io voglio mettere questa mazzata di codice in un DLL e usarlo anche in altre applicazioni, come si rikiamano i dll? Cosa devo fare x l'esatezza?

Spedito l'e-mail con le indicazioni per usare sia la clase che la dll (puoi scegliere quale usare).