Test Foro de elhacker.net SMF 2.1

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

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í:

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

Cita de: 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 [Seleccionar] Expandir

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

gracias, pero... ERROR EN LA SINTAXIIS XD

¿no será vb6?

Cita de: ABDERRAMAH en 20 Julio 2010, 04:44 AM
¿no será vb6?

emm..... SI  ;-)

vaya, la mia va en .net
vb6 en lugar de vbnewline usa vbCrLf, a ver si es sólamente eso.

^^, mira :P

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!

Cita de: petro_boca en 20 Julio 2010, 04:54 AM
^^, mira :P

Código [Seleccionar] Expandir

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!

Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, "Palabra Fija" & Text1.Text
Close #mitexto
End Sub

Cita de: seba123neo en 20 Julio 2010, 04:59 AM

Cita de: petro_boca en 20 Julio 2010, 04:54 AM
^^, mira :P

Código [Seleccionar] Expandir

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 (vb,5) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, "Palabra Fija" & Text1.Text
Close #mitexto
End Sub

I LOVE YOU <3

CitarPrivate 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....