Jump to content
Fury SL

Como puxar arquivos do TXT e Separar

Recommended Posts

Fury SL

boas galera, sou BR mas gostei do forum, sempre estou aqui

então... eu preciso pegar o texto que esta em um arquivo .txt hospedado em um dominio na net e passar cada pedaço dele pra uma determinada textbox

EX:    (texto no arquivo .txt)   "OLA / Galera / Meu / Nome / é / Fury / SL"

(No VB) Txt1.text = "Ola"    Txt2.text = "Galera"     Txt3.text = "Meu"    Txt4.text = "Nome"     Txt5.text = "é"     Txt6.text = "Fury"     Txt7.text = "SL" 

 

Obrigado Pela atençao

espero que Me ajudem pois preciso muito

Share this post


Link to post
Share on other sites
Ruimrc

Colocas o texto numa string, há milhares de exemplos na net.

A seguir podes usar o comando Split y um Array de string.

Repara que indicas qual é o separador

Depois é só fazer um ciclo para atribuir os valores à um Control Array de TextBox

 

Dim DataArray() As String
Dim linhaAtual As String 
Dim i as Integer

linhaAtual = "OLA/Galera/Meu/Nome/é/Fury/SL"
 
DataArray = Split(linhaAtual, "/")

For i = 0 to UBound(DataArray)

	Text1(i).text = DataArray(i)
next i

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.