Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Petro_Boca en 20 Julio 2010, 04:19 am



Título: Algien sabe como... u.u!
Publicado por: Petro_Boca en 20 Julio 2010, 04:19 am
Hola!

Voolvii XD!

una pregunta,...

tengo un TEXT y un boton...

como hago para crear un .txt con una linea "obligatoria" y la variable del TEXT ?

osea, asi

***** = linea obligatoria

***** + text = resultado.TXT

mil gracias ;D


Título: Re: Algien sabe como... u.u!
Publicado por: ABDERRAMAH en 20 Julio 2010, 04:36 am
no entiendo bien lo de "linea obligatoria", pero supongo que te refieres a una línea invariable de texto, en ese caso, suponiendo que el textbox se llama textbox1 sería así:

Código:
My.Computer.FileSystem.WriteAllText("nombre.txt","linea-obligatoria-de-texto"+vbnewline+me.textbox1.text ,  False)


Título: Re: Algien sabe como... u.u!
Publicado por: Petro_Boca en 20 Julio 2010, 04:41 am
no entiendo bien lo de "linea obligatoria", pero supongo que te refieres a una línea invariable de texto, en ese caso, suponiendo que el textbox se llama textbox1 sería así:

Código:
My.Computer.FileSystem.WriteAllText("nombre.txt","linea-obligatoria-de-texto"+vbnewline+me.textbox1.text ,  False)

gracias, pero... ERROR EN LA SINTAXIIS XD


Título: Re: Algien sabe como... u.u!
Publicado por: ABDERRAMAH en 20 Julio 2010, 04:44 am
¿no será vb6?


Título: Re: Algien sabe como... u.u!
Publicado por: Petro_Boca en 20 Julio 2010, 04:48 am
¿no será vb6?

emm..... SI  ;-)


Título: Re: Algien sabe como... u.u!
Publicado por: ABDERRAMAH en 20 Julio 2010, 04:51 am
vaya, la mia va en .net
vb6 en lugar de vbnewline usa vbCrLf, a ver si es sólamente eso.


Título: Re: Algien sabe como... u.u!
Publicado por: Petro_Boca en 20 Julio 2010, 04:54 am
^^, mira :P

Código:
Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, Text1
Close #mitexto
End Sub

con ese codigo guardo en el C:\ejemplo.TXT lo que dice el TEXTBOX...

pero la INVARIABLE? XD!


Título: Re: Algien sabe como... u.u!
Publicado por: seba123neo en 20 Julio 2010, 04:59 am
^^, mira :P

Código:
Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, Text1
Close #mitexto
End Sub

con ese codigo guardo en el C:\ejemplo.TXT lo que dice el TEXTBOX...

pero la INVARIABLE? XD!

Código
  1. Private Sub Command1_Click()
  2. Dim mitexto As Integer
  3. mitexto = FreeFile
  4. Open "c:\ejemplo.txt" For Output As #mitexto
  5. Print #mitexto, "Palabra Fija" & Text1.Text
  6. Close #mitexto
  7. End Sub


Título: Re: Algien sabe como... u.u!
Publicado por: Petro_Boca en 20 Julio 2010, 05:05 am
^^, mira :P

Código:
Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, Text1
Close #mitexto
End Sub

con ese codigo guardo en el C:\ejemplo.TXT lo que dice el TEXTBOX...

pero la INVARIABLE? XD!

Código
  1. Private Sub Command1_Click()
  2. Dim mitexto As Integer
  3. mitexto = FreeFile
  4. Open "c:\ejemplo.txt" For Output As #mitexto
  5. Print #mitexto, "Palabra Fija" & Text1.Text
  6. Close #mitexto
  7. End Sub

I LOVE YOU <3


Título: Re: Algien sabe como... u.u!
Publicado por: ABDERRAMAH en 20 Julio 2010, 05:06 am
Citar
Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, "texto fijo" & vbCrLf & Text1
Close #mitexto
End Sub

Prueba así, pero ya te digo que de versión 6 yo más bien poco...
xD tarde....