|
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
|
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
|
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é +
|
|
|