knzknzknz
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
.ку необходимо было убрать в дефекты все начало HDD.
может кому пригодится:
Sub aaa()
Rem в excel
Rem этот макросик для пункта загрузить из файла WDR - чтобы не долбило начало диска....
Rem 6 голов от 0 до 5, от нулевого трека до 416 трека, что менять для своих условий - разбиратся самим
Rem сохранить как .csv - потом в нотепаде убрать точку с запятой по всему тексту
Rem асИз - без притензий.
Cells(2, 1) = "[DEFECTS]"
M = 0
golov = 3
For I = 3 To 2500 Step golov
For j = 0 To golov - 1
Cells(I + j, 1) = I + j - 3
Cells(I + j, 2) = "="
Cells(I + j, 3) = GetHex(M) + " "
Cells(I + j, 4) = j
Cells(I + j, 5) = " Track"
Next j
M = M + 1
Next I
End Sub
Private Function GetHex(ByVal N As Long) As String
Dim M As String, T As String
Dim I As Integer, S As Integer
M = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
S = 16 'Система исчисления (2-36)
Do
I = N Mod S
N = N \ S
T = Mid(M, I + 1, 1) & T
Loop Until N = 0
GetHex = T
End Function
Rem асИз - без притензий. |
