ME SALEN LOS CARACTERES CAMBIADOS

[Javier Aguilar]

Hola a todos colegas. A los que vieron la base de datos que les mande espero
que les pueda servir para coger alguna idea. Bueno, ahora voy a dar otro
poquito la lata. Ahora estoy liado con otro proyecto porque si no con esto
del Euro no me va a dar tiempo. Bueno, el caso es que tengo un programa
hecho en COBOL y quiero hacer el mismo pero en Access y lo bueno sería que
pudiera pasar los datos de los ficheros de COBOL a Access. Viendo la ayuda
mer di cuenta de que con la instrucción Input y los ficheros secuenciales
puedo extraer el número de caracteres que me interesa pero me he dado cuenta
de una cosa, de que los signos como el º o el ª me los cambia y me pone
otros muy raros. ¿Sabe alguien porque me hace esto? porque en el fichero de
texto ASCII no aparece ningún caracter de esos tan raros.

Bueno, un saludo a todos. Chao.

[Hot Budare]

¿Probaste abrir el archivo en modo binario?

--
HTH/EQTA,
T.S.U. Mario Osorio
Punto Fijo, Falcón , Venezuela

Página personal:
http://www.mipagina.cantv.net/hotbudare/

Javier Aguilar <jai...@hotmail.com> escribió en el mensaje de noticias
#KTSrtPLBHA.1580@tkmsftngp03...

[Mąrius]

Hola Javier,

¿Has probado con el metodo Transfertext?
Lo digo por que si el fichero en cuestión es Ascii, lo puedes importar y
decirle que página de código utiliza (ANSI,850,...)
con esto los º ª te saldrán bien. Lo más fácil es utilizar primero el
asistente para importar, delimitar la longitud de los campos, en opciones
avanzadas indicar la pagina de códigos y guardar la especificación con un
nombre.
Después puedes usar -DoCmd.TransferText , "nombreEspecif", "tablaDestino",
"rutaNombreArchivo", False, ""- si tienes que repetir el proceso.

Saludos,
Màrius

Hot Budare <hotb...@cantv.net> escribió en el mensaje de noticias
ONkFDtQLBHA.1496@tkmsftngp05...

[Jondalar]

Suele ser bastante normal lo que planteas es un problema muy simple cobol
utiliza el un set de caracteres diferente, te adjunto la función de
conversion que yo utilizo en estos casos.

Public Function ArreglaSignos(ByVal Entrada As String) As String
Dim C As String, I As Integer, n As Integer, Barrita As String * 1
Barrita = "\"
Entrada = Trim(Entrada)
ArreglaSignos = ""
If Not IsNull(Entrada) Then
For I = 1 To Len(Entrada)
C = Mid(Entrada, I, 1)
Select Case C
Case "§"
ArreglaSignos = ArreglaSignos & "º"
Case "¥"
ArreglaSignos = ArreglaSignos & "Ñ"
Case Barrita
ArreglaSignos = ArreglaSignos & "Ñ"
Case "¤"
ArreglaSignos = ArreglaSignos & "ñ"
Case "¦"
ArreglaSignos = ArreglaSignos & "ª"
Case "@"
ArreglaSignos = ArreglaSignos & "ª"
Case "{"
ArreglaSignos = ArreglaSignos & "ª"
Case "s"
ArreglaSignos = ArreglaSignos & "ü"
Case Else
ArreglaSignos = ArreglaSignos & C
End Select
Next I
End If
End Function

--
Saludos Jondalar
--------------------------------------------------------------------
UTIL, es saber dónde buscar. ENSEÑAR, es aprender dos veces.
--------------------------------------------------------------------

[Javier Aguilar]

Hola Hot. Lo he estado probando pero me hace los mismo. Yo creo que lo mejor
es hacer lo que dice el amigo Jondalar.

Gracias de todos modos. Un saludo.

Hot Budare <hotb...@cantv.net> escribió en el mensaje de noticias
ONkFDtQLBHA.1496@tkmsftngp05...

[Javier Aguilar]

Hola Marius. He intentado probar lo que me comentas pero me sale un error de
falta de memoria o algo así y es que por lo visto el asistente de
importación no se traga ficheros ASCII de 7 Mb.

Gracias de todos modos. Un saludo.

Màrius <mar...@adam.es> escribió en el mensaje de noticias
#7awQjTLBHA.1772@tkmsftngp07...

[Javier Aguilar]

Hola Jondalar. Creo que al final voy a tener que aplicar tu solución. Ya me
paso esto mismo en PARADOX. Intenté hacer este programa en esa base de datos
y me salían también esas cosas raras y tuve que hacer un código como el
tuyo.

Gracias. Un saludo.

Jondalar <jord...@teleline.es> escribió en el mensaje de noticias
u3Nc2L5LBHA.692@tkmsftngp03...

[Mąrius]

Hola Javier,

Lo que te comenté tiene dos partes:
1º crear el archivo con la especificación de importación: hazlo con un
"trocito" del fichero ascii, dos o tres lineas.
2º una vez guardada la especificación, utilizar el metodo TransferText.
Yo lo he probado con ficheros de 8MB (130.000 registros) y aunque tarda unos
5 minutos funciona.
Nunca lo he probado con el asistente y ficheros de tantos megas, como tu
dices, igual el asistente no se traga tantos megas.

Saludos,
Màrius

Javier Aguilar <jai...@hotmail.com> escribió en el mensaje de noticias

utWw1wCMBHA.1496@tkmsftngp05...