Hola Tengo problemas para generar un texto necesito Ayuda Urgente Gracias

Hola como estan, mi problema radica a la hora de generar un texto, bueno llego a generar el texto pero el problema es que cada linea me la encierra entre comillas y no se como hacer para escribir una linea sin comillas, la idea es generar el texto limpi sin comillas, mi Fuente es el siguiente por favor expliquemen donde esta mi error. Por favor Gracias.


Private Sub CreoFacturaTexto(xSerie As String, xNumero As String)

Dim NombreDelArchivo As String
Dim xTxtCan As String
Dim xTxtPre As String
Dim xTxtMnt As String
Dim xTxtLin1 As String
Dim xTxtLin2 As String
Dim xTxtLin3 As String
Dim xTxtLin4 As String
Dim xTxtLin5 As String
Dim nArchivo As Integer

nArchivo = FreeFile

NombreDelArchivo = MiRuta & "Textos" & "FAC" & xSerie & xNumero & ".TXT"

xTxtLin1 = " Razon Social : " & txtNombre
xTxtLin2 = " R U C : " & txtRuc
xTxtLin3 = ""
xTxtLin4 = "-------------------------------------------------------------------------------------"
xTxtLin5 = " -CODIGO- --------NOMBRE-O-DESCRIPCION------- UND -CANTIDAD- -PRE.UNIT- ---TOTAL--- "

Open NombreDelArchivo For Output As #nArchivo


Write #nArchivo, Mid(xTxtLin1, 2, 40)
Write #nArchivo, xTxtLin2
Write #nArchivo, xTxtLin3
Write #nArchivo,
Write #nArchivo, xTxtLin4
Write #nArchivo, xTxtLin5
Write #nArchivo, xTxtLin4

rsDataTempo.MoveFirst
Do While Not rsDataTempo.EOF

xMiles = 1
ConvierteNumero (rsDataTempo.Fields("Cantidad")
xTxtCan = Right(" " & xNnumero, 10)
ConvierteNumero (rsDataTempo.Fields("Precio")
xTxtPre = Right(" " & xNnumero, 10)
ConvierteNumero (rsDataTempo.Fields("Total")
xTxtMnt = Right(" " & xNnumero, 11)

Write #nArchivo, Space(2) & rsDataTempo.Fields("Codigo" & Space(1) & Left(rsDataTempo.Fields("Nombre", 35) & Space(2) & _
"UNI" & Space(1) & xTxtCan & Space(1) & xTxtPre & Space(1) & xTxtMnt

rsDataTempo.MoveNext

Loop

Write #nArchivo, xTxtLin4



Close #nArchivo Cierra el archivo.



End Sub



Y el Archivo me Sale asi


"Razon Social : MATIN GARCIA PEREZ "
" R U C : 10001212121"
""

"-------------------------------------------------------------------------------------"
" -CODIGO- --------NOMBRE-O-DESCRIPCION------- UND -CANTIDAD- -PRE.UNIT- ---TOTAL--- "
"-------------------------------------------------------------------------------------"
" 0501001 CASTROL GTX 2 X 1 LITRO UNI 5.00 12.00 60.00"
" 0502001 MOBIL DELVAC 1440 X 1 LITRO UNI 1.00 9.50 9.50"
"-------------------------------------------------------------------------------------"

</TR>

__________________
GACE-SISAC
Soluciones Informaticas
El Conocimiento es como el Pan de Cada dia
no dejemos de alimentarnos de ella.

RE: Hola Tengo problemas para generar un texto necesito Ayuda Urgente Gracias

Utiliza PRINT en vez de WRITE y habrás solucionado el problema.


De todas formas mucho me temo que cuando edites el fichero de la fcatura, te vas a llevar sorpresas desagradables ya que ningún dato lo encontrarás alineado.... y si no ya me lo dirás...

Un saludo
-Acalanto-

Editado por acalanto, Viernes, 28 de Mayo de 2004, 18:16</TR>

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

RE: Hola Tengo problemas para generar un texto necesito Ayuda Urgente Gracias

Hola :

que tal un gusto en saludarte, aqui te va un ejemplo de como crear un txt :

dim lnArch as integer
lnArch = FreeFile
Open psNomArch For Output As #lnArch
For lnI = 0 To mxArrMuestras.Count(1) - 1
If lnI = 0 Then
Print #1, "BHID,AT,BRG,DIP"
Print #lnArch, cadena1; cadena2
lnI = lnI + 1
End If
Next
Close lnArch

Espero que te ayude :

Saludos cordiales,

__________________
Ronald León Madrid
Analista Programador de Sistemas
Aspi-Systems S.A.C