ARQUIVO .INI

NIUNZIN 26/12/2011 21:07:31
#391964
Bem, eu estou tentando criar um arquivo de configuração, com a extenção .ini.
Então eu peguei na internet esse Module:
Citação:

Imports System.Text
Imports System.Runtime.InteropServices

Module INI
<DllImport([Ô]kernel32.dll[Ô], SetLastError:=True)> Public Function WritePrivateProfileString _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer
End Function

<DllImport([Ô]kernel32.dll[Ô], SetLastError:=True)> Public Function GetPrivateProfileString( _
ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
End Function

Public Function lerINI(ByVal strIniFile As String, ByVal strKey As String, ByVal strItem As String) As String
Dim strValue As StringBuilder = New StringBuilder(255)
Dim intSize As Integer
intSize = GetPrivateProfileString(strKey, strItem, [Ô][Ô], strValue, 255, strIniFile)
Return strValue.ToString
End Function

Public Function escreveINI(ByVal strIniFile As String, ByVal strKey As String, _
ByVal strItem As String, ByVal strValue As String) _
As Boolean
Return WritePrivateProfileString(strKey, strItem, strValue, strIniFile)
End Function

[ô]Para ler um arquivo .ini: lerINI(Diretório do arquivo + arquivo.ini, [Ô]valor entre cochetes[Ô], [Ô]valor antes do igual[Ô])
[ô]Para escrever arquivo .ini: escreveINI(Diretório do arquivo + arquivo.ini, [Ô]Valor entre cochetes[Ô], [Ô]valor antes do igual[Ô], [Ô]valor depois do igual[Ô])
End Module



E depois:
Citação:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô] Timer1.Start()

TextBox1.Text = lerINI([Ô]config.ini[Ô], [Ô]Mice[Ô], [Ô]nome[Ô])
TextBox2.Text = lerINI([Ô]config.ini[Ô], [Ô]Mice[Ô], [Ô]site[Ô])
TextBox3.Text = lerINI([Ô]config.ini[Ô], [Ô]Mice[Ô], [Ô]email[Ô])

End Sub



E o arquivo de configuração:
Citação:

[Mice]
nome = Niunzin
email = transformanos@gmail.com
website = http://transformanosbr.blogspot.com/
salon = Niunzin



Mais simplesmente não mostra nas Textbox.
Alguém poderia me ajudar?
ASHKATCHUP 26/12/2011 21:51:55
#391966
no lugar de [Ô]config.ini[Ô], tu tem q por o caminho completo.

Tipo [Ô]C:\Pastas\config.ini[Ô]
NIUNZIN 26/12/2011 22:10:28
#391968
@Alevale
Não deu o APP.Config
Fala que é de Visual Studio, eu uso Visual Basic ;/

@Ash
Não deu ;/
NIUNZIN 27/12/2011 10:36:49
#391985
Nossa, obrigado.
Mais agora surgiu outra dúvida...
Então eu não uso o VB.NET? [ô]o[ô]

@edit
E onde eu coloco o
Citação:

Public Function fncLeIni(ByVal strSecao As String, ByVal strChave As String) As String
On Error GoTo TrataErro

Dim strPath As String
Dim strValor As String
Dim lonRetorno As Long

[ô]NOME DO ARQUIVO INI
strPath = App.Path & [Ô]\[Ô] & strNomeArquivoIni

strValor = String(255, 0)
lonRetorno = GetPrivateProfileString(strSecao, strChave, [Ô][Ô], strValor, Len(strValor), strPath)

If lonRetorno = 0 Then
fncLeIni = [Ô][Ô]
Else
fncLeIni = Left(strValor, InStr(1, strValor, Chr(0)) - 1)
End If

Exit Function
TrataErro:
MsgBox([Ô]Erro na leitura do arquivo de parâmetros.[Ô] & vbCrLf & Err.Number & [Ô] - [Ô] & vbCrLf & Err.Description, vbCritical + vbOKOnly)
End Function

?
NIUNZIN 27/12/2011 18:54:58
#392012
Deu certo, mais ficou com erro nessas linhas:
Citação:

strPath = App.Path & [Ô]\[Ô] & strNomeArquivoIni

strValor = String(255, 0)
NIUNZIN 27/12/2011 19:10:02
#392014
Visual Basic 2008 Express Edition
App.path não está funcionando, será que
Citação:

Directory.GetCurrentDirectory


funciona?

@edit
Com Directory.GetCurrentDirector fica correto, porem o String(255, 0) continua incorreto.
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar