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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  tem como fazer isto?
Roberto Silva
CAMPO GRANDE
MS - BRASIL
ENUNCIADA !
Postada em 28/06/2007 14:47 hs         
Acho que não espliquei direito:
Pegar uma sequencia inteira separada por virgula de um arquivo texto tipo:
"arroz, feijão, batata, macarrão"
e colocar num listbox separado tipo:
.arroz
.feijão
.batata
.macarrão
 
Obrigado.
   
KoRn
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/06/2007 17:47 hs            
A saquei vc tem um arquivo texto e vc quer tirar o texto dele e jogar o valor dentro de um listbox , isso ae eu nao tenho nao, mas vou ver oque eu arrumo pra tu na net

Jesus Cristo é O Senhor!!!
   
KoRn
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/06/2007 19:24 hs            
Carregando um arquivo texto para um ListBox
Private Sub AbreArquivo()
  Dim sArquivo As String, sLinha As String
  Dim iARQ As Integer
  sArquivo = App.Path & "MeuTexto.TXT"
  If Right$(App.Path, 1) <> "" Then
    sArquivo = App.Path & "MeuTexto.TXT"
  End If
  'Verificando se o arquivo existe:
  If Dir$(sArquivo) = "" Then
    'O arquivo NÃO existe.
    MsgBox "O arquivo não existe!", vbExclamation, _
           "ATENÇÃO!!!"
    Exit Sub
  End If
  iARQ = FreeFile
  Open sArquivo For Input As iARQ
  'Verificando se o arquivo está em branco:
  If LOF(iARQ) = 0 Then
    'O arquivo está em branco.
    MsgBox "O arquivo está em branco!", vbExclamation, _
           "ATENÇÃO!!!"
    'Fecha o arquivo
    Close iARQ
    Exit Sub
  End If
  'Limpa o ListBox:
  List1.Clear
  Do While Not EOF(iARQ) 'Enquanto ñ chegar ao fim do arq...
    'Pega a linha atual:
    Line Input #iARQ, sLinha
    'Adiciona-a no ListBox:
    List1.AddItem sLinha
  Loop
  'Fecha o arquivo
  Close iARQ
End Sub
Detalhe, você deverá mudar "MeuTexto.TXT" para o nome do arquivo que você deseja abrir e "List1" para o nome do ListBox onde as linhas serão adicionadas.

Jesus Cristo é O Senhor!!!
   
ArtSoft
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/06/2007 20:12 hs         
Olá companheiros !!! Pode ser feito assim também :

Private Sub Form_Load()
Dim dados As String
Dim matriz As String
'===================================================================
'PARA TESTAR COM SEU ARQUIVO NOMEARQUIVO.TXT UTILIZE A ROTINA ABAIXO :
    Close #1
    Open "NOMEARQUIVO.TXT" For Input As #1
    Do While Not EOF(1)
        Input #1, dados
        '
        matriz = Split(texto, "#")
        '
    Loop
    Close #1
'===================================================================
For i = 0 To UBound(matriz)
    List1.AddItem matriz(i)
Next
End Sub
t+,
 

Alexandre Costa
ArtSoftSystems

Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br

   
ArtSoft
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/06/2007 20:13 hs         
desculpe tem um BUG na rotina anterior...

Private Sub Form_Load()
Dim dados As String
Dim matriz As String
'===================================================================
'PARA TESTAR COM SEU ARQUIVO NOMEARQUIVO.TXT UTILIZE A ROTINA ABAIXO :
    Close #1
    Open "NOMEARQUIVO.TXT" For Input As #1
    Do While Not EOF(1)
        Input #1, dados
        '
        matriz = Split(dados, "#")
        '
    Loop
    Close #1
'===================================================================
For i = 0 To UBound(matriz)
    List1.AddItem matriz(i)
Next
End Sub
t+,
 

Alexandre Costa
ArtSoftSystems

Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br

   
rdeletric
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 29/06/2007 18:49 hs            
'Num form coloque um textbox e um listbox, depois insira os valores no textbox (exemplo: 'arroz, batata, macarrão, etc) e execute a função.

Public Sub TextparaList(textOrigem As String, listDestino As ListBox)
    Dim Linha As Variant, N As Double
    Linha = Split(textOrigem, ",")
  
     For N = 0 To UBound(Linha)
        listDestino.AddItem Linha(N)
    Next N
End Sub

'Exemplo de utilização:
TextparaList Text1, List1
'espero ter ajudado
'té +
   
Página(s): 2/3     « ANTERIOR    PRÓXIMA »


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