Форум программистов [Powered by Invision Power Board]

Код

Option Explicit

Dim lnFrom%, lnTo%
Dim i As Integer
Dim FileSource, FileDest As String
Dim Retval, msg
Dim Symbol As String
Dim AsciiCodeSymbol As Integer
Dim SymbolIsValid As Boolean
Dim fso As Object



Private Sub Command1_Click()

FileDest = "file_out.bin"
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(FileDest) Then
fso.DeleteFile (FileDest)
Else
End If

Select Case Len(Symbol)
Case 1
AsciiCodeSymbol = Asc(Symbol)
SymbolIsValid = True

Case 2 To 3
'Место, где не получается
    If Right(Symbol, 1) = "H" Or Right(Symbol, 1) = "h" Then
     AsciiCodeSymbol = Val("&H" & Symbol & "&")
    Else
     AsciiCodeSymbol = Int(Symbol)
    End If
SymbolIsValid = True

Case Else
msg = MsgBox("Ошибка:" & Chr(32) & "Указано неверное значение вырезаемого символа" & vbCrLf & _
"Указано больше знаков", _
vbExclamation, "Окно состояния")
SymbolIsValid = False
End Select

If SymbolIsValid Then
Retval = Cut_Symbols(FileSource, FileDest, AsciiCodeSymbol)
Else
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Dir1_Click()
Dir1.Path = Dir1.List(Dir1.ListIndex)
File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
FileSource = File1.FileName
End Sub

Public Function Cut_Symbols(ByVal FileFrom As String, ByVal FileTo As String, ByVal SymbolCut As Integer)

lnFrom = FreeFile
On Error GoTo label

Open FileFrom For Binary As #lnFrom
lnTo = FreeFile
Open FileTo For Binary As #lnTo

    'копирование содержимого
    ReDim Buffer(1 To LOF(lnFrom)) As Byte
    For i = 1 To LOF(lnFrom)
    'Get #lnFrom, , Buffer()  ' читаем полностью
    Get #lnFrom, , Buffer(i)
    
    'If Buffer(i) <> CByte(13) Then
    If Buffer(i) <> CByte(SymbolCut) Then
    Put #lnTo, , Buffer(i)
    Else
    End If
    Next
  
Close #lnFrom
Close #lnTo

label:
If Err.Number <> 0 Then
msg = MsgBox("Ошибка открытия " & Err.Number, vbExclamation, "Окно состояния")
Else
msg = MsgBox("Символ" & Chr(32) & "[" & Chr(SymbolCut) & "]" & Chr(32) & "вырезан по всему файлу" & Chr(32) & _
FileFrom & Chr(32) & "успешно." & vbCrLf & "Результат сохранен в файле" & Chr(32) & FileTo, _
vbInformation, "Окно состояния")
End If

End Function

Private Sub Form_Load()
Text1.Text = "A"
End Sub

Private Sub Text1_Change()
Symbol = Text1.Text

End Sub