Редактирование файла (помогите кто чем...)
Привет.
Надо вот написать небольшую прогу на VB5, которая может редактировать определённый файл.
Прога должна изменять некоторые байты c типами данных Float, Signed. Можете подсказать
с чего начинать и основы для написания этого? А то в програмерстве я пока мало чего знаю, а научиться хочется.
Накачал кучу справок, но везде всё стандартно и одинаково. А прога сейчас необходима...
Надо вот написать небольшую прогу на VB5, которая может редактировать определённый файл.
Прога должна изменять некоторые байты c типами данных Float, Signed. Можете подсказать
с чего начинать и основы для написания этого? А то в програмерстве я пока мало чего знаю, а научиться хочется.
Накачал кучу справок, но везде всё стандартно и одинаково. А прога сейчас необходима...
Вот такой вопрос такой:
Option Explicit
Dim bytI, dl, strA, nach As String
Private Sub cmdCod_Click()
dl = Len(zzz.Text)
If dl > 0 Then zzz.Text = ""
For bytI = 1 To Len(nef.Text)
strA = Mid(nef.Text, bytI, 1)
zzz.Text = zzz.Text & Hex(Asc(strA))
Next bytI
End Sub
вот прогу написал. Преобразует текст в 16-й код.
Что нужно сделать, чтобы текст (а вернее число) преобразовывался в single (Float)? А так есть число (допустим -2514.458) - так оно же будет занимать далеко не 4 байта:-?
Option Explicit
Dim bytI, dl, strA, nach As String
Private Sub cmdCod_Click()
dl = Len(zzz.Text)
If dl > 0 Then zzz.Text = ""
For bytI = 1 To Len(nef.Text)
strA = Mid(nef.Text, bytI, 1)
zzz.Text = zzz.Text & Hex(Asc(strA))
Next bytI
End Sub
вот прогу написал. Преобразует текст в 16-й код.
Что нужно сделать, чтобы текст (а вернее число) преобразовывался в single (Float)? А так есть число (допустим -2514.458) - так оно же будет занимать далеко не 4 байта:-?
Цитата:
Originally posted by Frende
Вот такой вопрос такой:
Option Explicit
Dim bytI, dl, strA, nach As String
Private Sub cmdCod_Click()
dl = Len(zzz.Text)
If dl > 0 Then zzz.Text = ""
For bytI = 1 To Len(nef.Text)
strA = Mid(nef.Text, bytI, 1)
zzz.Text = zzz.Text & Hex(Asc(strA))
Next bytI
End Sub
вот прогу написал. Преобразует текст в 16-й код.
Что нужно сделать, чтобы текст (а вернее число) преобразовывался в single (Float)? А так есть число (допустим -2514.458) - так оно же будет занимать далеко не 4 байта:-?
Вот такой вопрос такой:
Option Explicit
Dim bytI, dl, strA, nach As String
Private Sub cmdCod_Click()
dl = Len(zzz.Text)
If dl > 0 Then zzz.Text = ""
For bytI = 1 To Len(nef.Text)
strA = Mid(nef.Text, bytI, 1)
zzz.Text = zzz.Text & Hex(Asc(strA))
Next bytI
End Sub
вот прогу написал. Преобразует текст в 16-й код.
Что нужно сделать, чтобы текст (а вернее число) преобразовывался в single (Float)? А так есть число (допустим -2514.458) - так оно же будет занимать далеко не 4 байта:-?
Смутно как-то все это.
А нельзя функциями преобразования воспользоваться?
dim x as single
x=csng("-2514.458")
или просто неявно
x="-2514.458"
Всем спасибо - всё уяснил:)