então colega faça o que eu disse anteriormente

 

suponha que eu queira fazer a seguinte alteração na linha

 

 

 

 

Num=len(cod) 'o resultado de len será 255

 

então faço isto

 

linha=Mid(cod,num-2,2)

replace(cod,"11","  ")

 

não sei se você entendeu

 

 

não funcionou porqu você deve abrir manualmente um linha do arquivo selecionar somente até onde está o que deseja alterar

ai sim colocar dentro do len, mas isto só para saber a quantidade de caracteres até onde deseja alterar

 

vamos á um exemplo

 

insira um botão no form e cole este código

 

Private Sub Command1_Click()

dim Linha as Integer

Linha=Len("coloque aqui somente o trecho da string que vai do inicio até onde deseja alterar"

Msgbox Linha

End sub

 

feito isso clique no botão

 

a msgbox irá exibir o numeroque você usará

 

então ai sim coloque o mesmo na mid

 

veja como

 

supondo que o numero seja 400

 

Line Input #arqori, linha
linha = Mid(cod, 400- 1,1)
cod= Replace(cod, "1", " ")
Print #arqdest, linha
Loop

e pronto entendeu agora

 

o comannd1 você pode descartar o mesmo foi feito apenas para descobrir onde está o caractere

Envia o código pra mim com o arquivo texto, ou pelo menos uma das linhas informe qual o numero deseja apagar, e mande também o banco de dados.

 

que dou uma olhada e retorno pra você