Добрый день!

Мне необходимо в бинарном файле заменить символ "*" на "пробел"
Мой код:

Dim handle, outhandle As Integer
Dim infilename, outfilename, buffer As String

infilename = "c:\bb\m_oper.dbf"
outfilename = "c:\bb\ConvertedTextFile.txt"

handle = FreeFile
Open infilename For Input As handle

outhandle = FreeFile
Open (outfilename) For Output As outhandle

Do While EOF(handle) = False
Line Input #handle, buffer

Do While InStr(buffer, "*") > 0
buffer = Replace(buffer, "*", " ")
Loop
Print #outhandle, buffer
Loop

Close (handle)
Close (outhandle)

в результате размер файла уменьшается.

Вероятно источник ошибки тут:
Do While InStr(buffer, "*") > 0
buffer = Replace(buffer, "*", " ")

P.S. При открытии файла другим способом:
Open infilename For Binary Access Read As handle - размер файла увеличивается

Помогите, пожалуйста, с реализацией

Andrei2010,

На данный момент использую вызов скрипта из командной строки:

авторcscript.exe SearchAndReplace.vbs "m_oper.dbf" "*" " "

хотелось бы в студию скрипт SearchAndReplace в бинарном файле средствами visual basic

Доработав, реализовал следующим способом:

InFileName = CurrentProject.Path + "\m_oper.dbf"
OutFileName = CurrentProject.Path + "\m_oper_m.dbf"

HandleIn = FreeFile

Open InFileName For Binary Lock Read As #1 'открыли файл на чтение
FileLength = LOF(HandleIn)

buffer = Space$(FileLength) 'выделили память
Get #1, , buffer 'считали файл в переменную
' удаляем из файла признак удаленных записей '*'
'---------------------------------------------
Do While InStr(buffer, "*") > 0
buffer = Replace(buffer, "*", " ")
Loop
'---------------------------------------------
HandleOut = FreeFile
Open OutFileName For Append As #2 'открыли файл на добавление
Print #2, buffer 'записали на диск новый файл

Close (HandleIn)
Close (HandleOut)

Дмитрий Исаев,

А как написать правильно?

Анатолий ( Киев ),

Спасибо за замечание. Внесу исправление.

Andrei2010,

Код принял следующий вид:

Dim rst As DAO.Recordset
Dim SQL As String
Dim Pos, M_stal, Diametr, Plan, Dlina, KodZagolovka
Dim InFileName, OutFileName, FileLength, HandleIn, HandleOut
Dim buffer As String

' удаляем файл
If FileExists(CurrentProject.Path + "\m_oper.dbf") = True Then
Kill CurrentProject.Path + "\m_oper.dbf"
End If

' удаляем файл
If FileExists(CurrentProject.Path + "\m_oper_m.dbf") = True Then
Kill CurrentProject.Path + "\m_oper_m.dbf"
End If

' копируем файл
FileCopy PaketPath + "\m_oper.dbf", CurrentProject.Path + "\m_oper.dbf"

InFileName = CurrentProject.Path + "\m_oper.dbf"
OutFileName = CurrentProject.Path + "\m_oper_m.dbf"

HandleIn = FreeFile

Open InFileName For Binary Lock Read As #HandleIn 'открыли файл на чтение
FileLength = LOF(HandleIn)

buffer = Space$(FileLength) 'выделили память
Get #HandleIn, , buffer 'считали файл в переменную
' удаляем из файла признак удаленных записей '*'
'---------------------------------------------
Do While InStr(buffer, "*") > 0
buffer = Replace(buffer, "*", " ")
Loop
'---------------------------------------------
HandleOut = FreeFile
Open OutFileName For Append As #HandleOut 'открыли файл на добавление
Print #HandleOut, buffer 'записали на диск новый файл

Close (HandleIn)
Close (HandleOut)

P.S. Единственное, что мне не понятно - размер выходного файла увеличивается на 2 байта. Даже при отключении блока замены "*" на "пробел".

Дмитрий Исаев,

Благодарю! Я бы не догадался.

PWW,

Номер записи является ключем для других связанных dbf-файлов (особенности программы написанной на Clipper-е). Поэтому приходится это делать.

PWW,

Да, это точно. Цикл "Do While" лишний.

Анатолий ( Киев ),

нет не пробовал