|
|
Postada em 21/03/2007 11:04 hs
Caros amigos, meu problema é o seguinte, tenho um aplicativo de manipulação de arquivos Texto, no entanto estou precisando de alguma rotina, para fazer o aplicativo funcionar com arquivos texto compilados em sistemas UNIX, pois toda vez para funcionar, tenho q abrir o Arquivo no TextPad e converter ele para PC, existe alguma coisa que posso fazer para rodar tanto compilações de arquivos em PC, quanto em UNIX ?
Aguardo alguma ajuda a respeito.
---------------------------------
Valmir Ferreira Rocha
Sistemas de Informação
---------------------------------
|
|
|
|
|
|
|
|
Postada em 22/03/2007 10:29 hs
Essa função deve funcionar... fiz meio na pressa, se der algum erro, post de novo.
Function ArrumaCarUnix(byval unixstr as string)
Dim LF as String * 1
Dim CR as String * 1
Dim BC as String * 1
LF = chr(10)
CR = chr(13)
BC = chr(7)
unixstr = Replace(unixstr, vbcrlf, BC)
unixstr = Replace(unixstr, LF, BC)
unixstr = Replace(unixstr, CR, BC)
unixstr = Replace(unixstr, LF & CR, BC)
ArrumaCarUnix = Replace(unixstr, BC, vbcrlf)
End Function
|
|
|
|
$VALMIR$
|
UBERLANDIA
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 23/03/2007 18:00 hs
Amigo, não estou entendendo essa função, ela vai converter o arquivo.. o q vai fazer essa função.?
---------------------------------
Valmir Ferreira Rocha
Sistemas de Informação
---------------------------------
|
|
|
|
|
