Grub2-generator

; программа для перевода (sys/iso)linux.cfg в .lst файлы от grub4dos
; написана 5 апреля 2009 года
; допускаются любые виды распространения и использования
#NoTrayIcon
$file = FileOpenDialog("Выберите конфигурационный файл sys/isolinux", @WorkingDir, "Syslinux(syslinux.cfg)|Isolinux(isolinux.cfg)|Все файлы(*.*)")
If @error Then Exit
$hndl = FileOpen($file, 0)
If $hndl = -1 Then
  MsgBox(16, "Ошибка", "Не удалось открыть файл!")
  Exit
EndIf
$l = 1
Dim $data[1024]
Dim $ndata[1024]
$kernel = InputBox("Введите путь к ядру","Введите полный путь к файлу kernel относительно корня флешки, например, /slax/boot/kernel")
If @error Then Exit
$initrd = InputBox("Введите путь к initrd","Введите полный путь к файлу initrd отностельно корня флешки, например, /slax/boot/initrd.gz")
If @error Then Exit
; сообщить о чтании данных
SplashTextOn("","Чтение даных из файла...","300","20","-1","-1",1,"","","")
While 1
  $data[$l] = FileReadLine($hndl,$l)
  If @error = -1 Then ExitLoop
  $l = $l + 1
WEnd
; сообщить об обработке данных
SplashTextOn("","Обработка данных...","200","20","-1","-1",3,"","","")
For $i = 1 To $l
  Select
  Case StringInStr($data[$i],"#") > 0
  $ndata[$i] = $data[$i]
  Case StringInStr($data[$i],"label") > 0
  $ndata[$i] = Label($data[$i],$i)
  Case StringInStr($data[$i],"kernel") > 0
  $ndata[$i] = Kernel($data[$i],$i)
  Case StringInStr($data[$i],"append") > 0
  $ndata[$i] = Append($data[$i],$i)
  Case Else
  $ndata[$i] = "#"&$data[$i]
  EndSelect
Next
Func Label($text,$number)
  $cut = StringInStr($data[$number],"label")+5
  Return "title "&StringTrimLeft($text,$cut)
EndFunc
Func Kernel($text,$number)
  $cut = StringInStr($data[$number + 1],"append")+6
  Return "kernel "&$kernel&" "&StringTrimLeft($data[$number + 1],$cut)
EndFunc
Func Append($text,$number)
  Return "initrd "&$initrd
EndFunc
$nfile = $file&".lst"
$nhnd = FileOpen($nfile,1)
; сообщить о записи данных
SplashTextOn("","Запись данных в файл "&$nfile&"...","250","20","-1","-1",3,"","","")
For $i = 1 To $l
  FileWriteLine($nhnd,$ndata[$i]&@CRLF)
Next
MsgBox(64,"Обработка завершена","Перевод завершён, результаты записаны в файл "&$nfile)