Visual Basic - Como trabajar con comas?

Life is soft - evento anual de software empresarial
 
Vista:

Como trabajar con comas?

Publicado por Elizabeth (71 intervenciones) el 07/01/2005 16:27:49
Hola amigos, estoy elaborando un programa que crea un documento de texto de esta forma

DNumeroDeCuenta = rstSantanderEmpleados.Fields("CuentaBancaria").Value
Cuenta = Mid(DNumeroDeCuenta & Space(16), 1, 16)
DImporte = rstSantanderQuincena.Fields("CantidadTotal").Value 'Verificar Importe
Importe = Format(DImporte, "0000000000000000.00")
sSQL3 = DTipoDeRegistro & DNumeroDeSecuencia & NumeroEmp & APaterno & AMaterno & Nombre & Cuenta & Importe
Print #2, sSQL3

pero como puedo hacer para que cuando lo pase a un txt me lo separe con comas, otra cosa mas como doy formato de 16 enteros, dos decimales sin punto bueno gracias por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como trabajar con comas?

Publicado por Cecilia Colalongo (3116 intervenciones) el 07/01/2005 17:51:53
Si estás utilizando ADO, puedes hacer:

StringToFile rstSantanderEmpleados.GetString,"MiTabla.txt"

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long
hlngFile = FreeFile
Open FileName For Binary Access Write As hlngFile
Put hlngFile, , StringText
Close hlngFile
StringToFile = FileLen(FileName)
End Function

Con lo que tienes actualmente puedes hacer:

sSQL3 = DTipoDeRegistro & "," & DNumeroDeSecuencia & "," & NumeroEmp & "," & APaterno & "," & AMaterno & "," & Nombre & "," & Cuenta & "," & Importe
Print #2, sSQL3

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar