Hola como estan, estoy generando un archivo txt el cual debe cumplir con un formato de campospre establecido.
( Hoja con el formato que debe cumplir )
Desde linea 1 - Codigo Cliente- 5 espacios ; Nombre - 50 espacios.... etc

Asi es mas o menos los requerimientos, queria saber como debo hacer para el caso en que el nombre tenga menos de 50 caracteres me respete ese espacio de 50 espacios de todos modos, o como hacer cuando el nombre tenga mas de 50 caracteres.

Gracias desde ya

Hola, yo lo haria asi, para que despues desde el codigo uses la funcion Mid y le digas donde empieza una cadena y donde termina...supongamos que al nuemro del cliente le asigno 5 caracteres y al nombre 50 seria asi...

12345 nombreeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
12 nombre mas corto
12345 nombre mas largoooooooooooooooooooooo

entonces desde codigo para cargar el codigo del cliente, lees la linea del
archivo primero y le haces un Mid(Variable,1,5) y al otro un Mid(Variable, 6,50)

entonces el codigo va a tener una longitud de 5 y el nombre una de 50 siempre...

saludos.

Gracias seba, pero no se si no me explique bien o no me interpretaste o yo no te entiendo a vos, ja!.
Yo tengo estos datos en una grilla

Cod_Cliente(5) |Nombre(30) ! DNI (8)
00123Jose Aguirre 24659800

Mi archivo txt debe quedar de la siguiente manera

00123; Jose Aguirre ; 24659800

Es decir, lo que necesito es que me llene con espacios en blanco lo que falta para llegar a 30 caracteres enel caso del campo Nombre. Te agradezco nuevamente por tu colaboracion

tienes que contar la cantidad de caracteres del texto y luego haces un buble que rellene con espacios

Código:

Public Function Rellenar(ByVal nTexto As String, MaxTamaño As Integer) As String
Dim i As Integer
For i = Len(nTexto) + 1 To MaxTamaño
 nTexto = nTexto & " "
Next
Rellenar = nTexto
End Function

y la usas

Código:

NombreLargol = Rellenar(Nombre,50)

Te doy dos posibilidades más a lo que ya te han dicho:

1.Nombre = Nombre + Space(30-Len(Nombre))

2. Dim Codigo As String * 5, Nombre As String * 30, DNI As String * 8

Saludos.

Hoy no es mi día: la opción 1 da error si la longitud del nombre es mayor que 30. Puedes hacer lo que dice Garfield, las declaraciones de longitud fija,o si no también unafunción como:

Public Function Procusto(sTexto As String, lLong As Long) As String

Dim lLongTexto As Long
lLongTexto= Len(sTexto)

If lLongTexto<lLong then
Procusto = sTexto + Space(lLong-lLongTexto)
ElseIf lLongTexto>lLong
Procusto = Left(sTexto, lLong)
Else
Procusto = sTexto
Endif

End Function

Hola.!

Creo que Neo te ha dado la mejor solucion:

El MID..!

La función MID no sólo te "retorna" el valor dentro de un String, sino que tambien ASIGNA:

Veamos un ejemplo:

si tu tienes un Strnig de 50 caracteres (tu campo nombre) puedes hacer lo siguiente:

MID(TuString,1,len(tusdatos)) = "bla bla bla" (tus datos)

Entonces, el MID se encarga de reemplazarte los caracteres que necesite, sin cambiarte el tamaño de tu variable.

Hay pocos programadores que sepan esto; de echo yo lo he aprendido hace pocos años :-p

si tienes una serie de variables (o un array), luego los puedes concatenar al final y siempre tendrán el mismo tamaño

TuStringFinal = Var1 & ";" & Var2 & "," & Var3.....

Espero te sirva.

Un abrazo desde España.

Iniciado por Knossos

El MID..!

La función MID no sólo te "retorna" el valor dentro de un String, sino que tambien ASIGNA:

¡¡¡¡¡¡¡¡¡
Me apunto a la lista de los que no sabían eso. Thanks.

De todas maneras no veo como le soluciona eso las cosas a hernanlui, porque él el problema que tiene es que NO tiene un campo nombre con longitud fija de 30 caracteres: eso es precisamente lo que quiere conseguir. Y ese MID le va a dejar sus datos con la longitud que ya tengan.

Pero bueno, muy útil saber que existe esa instrucción MID... gracias de nuevo Knossos.

Saludos.

Hombre...lo que yo haría es generar un string de X caracteres (donde X es el maximo de caracteres de lo que el quiere guardar)y de ahí comenzaría a "escribir" con el MID.

Es lo que se hacía antes en visual 6 para tratamiento de cadenas de longitudes fijas...

Un abrazo desde España.

¡Ah! vale ya te entiendo... lo que quieres decir es que si el pone...

Dim Nombre As String
Nombre = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Entonces si a partir de aquí usa ese MID la longitud de Nombre nunca va a cambiar... ¿no?
Correcto. Lo que yo sugería antes es que si pone String * 50 también vale y ya rellena con espacios y todo eso.

Saludos.

Sip..!!! exacto

De esa forma nunca tendrá problemas con los espacios ni la asignacion de los "campos" y las posiciones de los mismos.

Un abrazo desde España.

Les agradezco por sus sugerencias, finalmente opte por la de declarar una variable que tenga definida la longitud ( String * 50 ), y me resulto bien. Gracias