USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Arquivo ini
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 03/12/2010 16:31 hs            
emqual evento vc coloca o código
 
reparei que usa o lbl(index) isso acredito estar sendo feito no evento click ou em outro]
 
quantos labels possui o form
 
pois o certo seria fazer isto aqui
 
Dim Arq1 As String
 
For F = 0 To lbl.UBound
 
Arq1= Arq1 & lbl(F).Caption & ";"
 
Next F

WriteINI Link & "Base.ini", "DOCUMENTOS", "Arquivo1", Mid(Arq1,1,Len(Arq1)-1)

Da forma descrita acima seria feito um laço em todas as labels, incluindo o nome das mesmas em Arq1

 

 

 
     
J.Carlos
Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
Postada em 07/12/2010 08:42 hs            
Ed pra gravar linha por linha vc pode fazer assim:
 
Open App.Path & "NomeArquivo.txt" For Random As 1 Len = 80
dim wstrReg as string
wStrReg = "Arquivo_1=Manual"
wStrReg = Left(wStrReg, 78) & vbCrLf 'põe um crlf na posição 78 do registro
Put #1, 1, wStrReg 'grava a primeira linha no arquivo

wStrReg = "Arquivo_1=Objeto"
wStrReg = Left(wStrReg, 78)
Put #1, 2, wStrReg 'Grava a segunda linha
Close #1
Para ler o arquivo assim:
 
Open App.Path & "NomeArquivo.txt" For Input As 1
Do Until EOF(1)
   dim wCont as integer
   wCont = wCont + 1
   Line Input #1, wRegistro
   If wCont = 1 Then
      msgbox "Manual"
   Else
     msgbox "Objeto"
   End If
Loop
Close #1
 
TÓPICO EDITADO
   
ED - Claret
SÃO JOSE DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 07/12/2010 08:57 hs         
  Muito obrigado a todos.........vou testar....

Grande abraços


att: Pessoas como vocês é que fazem a diferença nesse forum....
   
Página(s): 2/2     « ANTERIOR  


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página