Algien sabe como... u.u!

[Petro_Boca]

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

[ABDERRAMAH]

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)

[Petro_Boca]

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

[ABDERRAMAH]

¿no será vb6?

[Petro_Boca]

¿no será vb6?

emm..... SI 

[ABDERRAMAH]

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

[Petro_Boca]

^^, mira

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!

[seba123neo]

^^, mira

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

[Petro_Boca]

^^, mira

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

[ABDERRAMAH]

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