Лингрин :: Резиденция Линды Кайе — @дневники: асоциальная сеть

четверг, 10 января 2008

01:57

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2714-12-20
#original-date: 31.12.2007 Mon
#original-time: 12:20 PM
#original-day: 2714
#original-host: WinXP Prof SP2 (Build 2600)

31 декабря. Свет вырубили только что. С новым годом от местных энергетиков и администрации, блин.

Помнится, в последний раз когда в Петропавловске вырубили свет, такой кипиш поднялся, даже судили кого-то. Увы, мы не Петропавловск.

#music: Hikaru Nanase\Scrapped Princess OST Vol. 1\Saikai

URL

01:56

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2713-22-48
#original-date: 30.12.2007 Sun
#original-time: 10:48 PM
#original-day: 2713
#original-host: WinXP Prof SP2 (Build 2600)

Написала библиотеку, которая парсирует TXT файл дневника. Собственно, код я писала ещё чёрт знает когда для перегонки другого дневника в HTML (примерно тоже делает и клиент и, кстати, с похожими проблемами, только я не использую регулярные выражения), но там у меня был немного другой парсинг. Когда же я начала писать для Win16 утилиту для создания XML, мне стало лень заниматься тем же самым, и я немного изменила алгорим, сделав его чуть более понятным и добавила туда некоторые фичи вроде извлечение заголовка поста и фактической даты написания...

Теперь, когда я писала библиотеку, я решила не возвращаться к старому коду (хотя планировала использовать именно его), а просто перенесла из Win16 код, сняв ограничение на размер файла.

Кстати, это одна из моих проблем. Я не люблю читать файлы по строчке, по блоку, а потом в памями, используя десяток указателей на разные части (текущий блок, предыдущий блок, начало предыдущей строки, последняя запомненная строка), склеивать всё это. Я просто разом читаю весь файл, а потом разбираю его. Разумеется, в Win32 это ещё более-менее без проблем, но в Win16 начинаются проблемы с сегментацией и нехваткой памяти.

Интересно, я одна такая лентяйка?

#music: Initial D\Initial D D Selection 2\Dave Rodgers & Mega NRG Man / Night Fever

URL

01:56

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2714-08-48
#original-date: 31.12.2007 Mon
#original-time: 8:48 AM
#original-day: 2714
#original-host: WinXP Prof SP2 (Build 2600)

Что-то я не пойму ни как NT Backup. Нужно чтобы сначала делался архив со всеми выбранными файлами. Потом при следующей архивации изменённые файлы перезаписываются, остальные не трогаются. Вот как я себе это представляю. А на деле же получается что он тупо дописывает к имеющимся файлам их неизменённые копии, так что в одном файле архива получается два архивных комплекта.

Вопрос. Как сделать так как я хочу без написания собственного бэкапера?

URL

01:56

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2714-01-10
#original-date: 31.12.2007 Mon
#original-time: 1:10 AM
#original-day: 2714
#original-host: WinXP Prof SP2 (Build 2600)

Портировала ^_^ Теперь у меня нет ограничений на размер файла ^_^

#music: Initial D\Initial D D Selection 2\Mako & Sayuki / Wings of Fire

URL

01:56

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2714-00-35
#original-date: 31.12.2007 Mon
#original-time: 12:35 AM
#original-day: 2714
#original-host: WinXP Prof SP2 (Build 2600)

Вот этот скриншот мощно выглядит... Очень похоже на эмуляцию 3D интерфейса в Win16 (3D в смысле не как в Висте, а с выпуклыми элементами).

#music: Initial D\Initial D D Selection 2\King & Queen / Dancing Queen

URL

01:55

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2713-04-24
#original-date: 30.12.2007 Sun
#original-time: 4:24 AM
#original-day: 2713
#original-host: WinXP Prof SP2 (Build 2600)

Портировала свой Diary file opener в Win32. Заодно глюк убила в обеих версиях ^_^

Вот Win16 версия:

Option Explicit

Const DEFAULT_DIR = "F:\~~~WORK\DIARY.RU\"

Declare Function ShellExecute Lib "Shell" (ByVal hWnd As Integer, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal fsShowCmd As Integer) As Integer

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_NORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWNOACTIVATE = 4
Global Const SW_SHOW = 5
Global Const SW_MINIMIZE = 6
Global Const SW_SHOWMINNOACTIVE = 7
Global Const SW_SHOWNA = 8
Global Const SW_RESTORE = 9

Sub CreateFile (ByVal FileName As String)
  Dim hFile As Integer

  If IsFileExist(FileName) Then
    If MsgBox("Файл " & FileName & ", который должен быть создан, уже существует. Перезаписать его?", MB_ICONEXCLAMATION + MB_OKCANCEL) = IDCANCEL Then
      Exit Sub
    End If
  End If
  
  hFile = FreeFile
  Open FileName For Append As #hFile
  Close #hFile
End Sub

Function GetDiaryFileNameTXT (ByVal Index As Integer) As String
  GetDiaryFileNameTXT = DEFAULT_DIR & "DIARY" & Format(Index, "000") & ".TXT"
End Function

Function GetDiaryFileNameXML (ByVal Index As Integer) As String
  GetDiaryFileNameXML = DEFAULT_DIR & "DIARY" & Format(Index, "000") & ".XML"
End Function

Function GetDiaryLastIndex () As Integer
  Dim TMP As Integer
  Dim FileName As String
  
  For TMP = 999 To 0 Step -1
    FileName = GetDiaryFileNameTXT(TMP)
    If IsFileExist(FileName) Then
      GetDiaryLastIndex = TMP
      Exit Function
    End If
  Next TMP
  
  GetDiaryLastIndex = -1
End Function

Function IsFileExist (ByVal FileName As String) As Integer
  Dim TXT As String
  
  On Error Resume Next

  TXT = Dir(FileName, ATTR_HIDDEN Or ATTR_SYSTEM)
  If Err <> 0 Then
    IsFileExist = False
  Else
    If TXT = "" Then
      IsFileExist = False
    Else
      IsFileExist = True
    End If
  End If
End Function

Sub Main ()
  Dim FileName As String
  Dim RC As Integer
  Dim Cmd As String
  Dim Index As Integer
  
  Cmd = UCase(LTrim(RTrim(Command)))
  Index = GetDiaryLastIndex()
  
  If Cmd = "/NEWDIARY" Then
    If Index = 999 Then
      MsgBox "Нет свободных номеров для файлов дневника.", MB_ICONSTOP
      Exit Sub
    End If
    
    Index = Index + 1
    FileName = GetDiaryFileNameTXT(Index)
    CreateFile FileName
  Else
    If Index = -1 Then
      If MsgBox("Файлов дневника не обнаружено. Создать новый?", MB_ICONQUESTION + MB_OKCANCEL) = IDOK Then
        Index = Index + 1
        FileName = GetDiaryFileNameTXT(Index)
        CreateFile FileName
      Else
        Exit Sub
      End If
    Else
      If IsFileExist(GetDiaryFileNameXML(Index)) Then
        If MsgBox("Обнаружен одноимённый XML файл. Возможно этот файл уже был отправлен. Создать новый?", MB_ICONQUESTION + MB_OKCANCEL) = IDOK Then
          If Index = 999 Then
            MsgBox "Нет свободных номеров для файлов дневника.", MB_ICONSTOP
            Exit Sub
          End If
          
          Index = Index + 1
          FileName = GetDiaryFileNameTXT(Index)
          CreateFile FileName
        Else
          FileName = GetDiaryFileNameTXT(Index)
        End If
      Else
        FileName = GetDiaryFileNameTXT(Index)
      End If
    End If
  End If
  
  RC = ShellExecute(0, "open", FileName, "", "", SW_SHOW)
  If RC <= 32 And RC >= 0 Then ' WORD
    MsgBox "Не удаётся открыть или создать файл дневника. ShellExecute() вернула " & CStr(RC) & ".", MB_ICONSTOP
  End If
End Sub

А вот - Win32:

Attribute VB_Name = "modMain"
Option Explicit

Const DEFAULT_DIR = "H:\~~~Work\Diary.ru\"

'====================================================================
Private Sub CreateFile(ByVal FileName As BStr)
  Dim hFile As VB_FILE_NUMBER
  
  If asIsFileExist(FileName) Then
    If MsgBox("Файл " & FileName & ", который должен быть создан, уже существует. Перезаписать его?", vbExclamation + vbOKCancel) = vbCancel Then
      Exit Sub
    End If
  End If
  
  On Error Resume Next
  
  hFile = FreeFile
  Open FileName For Append As #hFile
  Close #hFile
End Sub

'====================================================================
Private Function GetDiaryFileNameTXT(ByVal Index As Long) As BStr
  GetDiaryFileNameTXT = DEFAULT_DIR & "DIARY" & Format(Index, "000") & ".TXT"
End Function

Private Function GetDiaryFileNameXML(ByVal Index As Long) As BStr
  GetDiaryFileNameXML = DEFAULT_DIR & "DIARY" & Format(Index, "000") & ".XML"
End Function

'====================================================================
Private Function GetDiaryLastIndex() As Long
  Dim TMP As Long
  Dim FileName As BStr
  
  For TMP = 999 To 0 Step -1
    FileName = GetDiaryFileNameTXT(TMP)
    If asIsFileExist(FileName) Then
      GetDiaryLastIndex = TMP
      Exit Function
    End If
  Next TMP
  
  GetDiaryLastIndex = -1
End Function

'====================================================================
Public Sub Main()
  asRegisterAppPath
  InitCommonControls
  If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON
  
  If Not asIsDirectoryExist(DEFAULT_DIR) Then
    MsgBox "Не удаётся найти каталог с файлами дневника! " & _
           "Возмошно, флэшка не подключена.", vbCritical
    Exit Sub
  End If
  
  LetsOpenFile
End Sub

'====================================================================
Private Sub LetsOpenFile()
  Dim FileName As BStr
  Dim RC As Long
  Dim Cmd As BStr
  Dim Index As Long
  
  Cmd = UCase(asTrimEx(Command))
  Index = GetDiaryLastIndex()
  
  If Cmd = "/NEWDIARY" Then
    If Index = 999 Then
      MsgBox "Нет свободных номеров для файлов дневника.", vbCritical
      Exit Sub
    End If
    
    Index = Index + 1
    FileName = GetDiaryFileNameTXT(Index)
    CreateFile FileName
  Else
    If Index = -1 Then
      If MsgBox("Файлов дневника не обнаружено. Создать новый?", vbQuestion + vbOKCancel) = vbOK Then
        Index = Index + 1
        FileName = GetDiaryFileNameTXT(Index)
        CreateFile FileName
      Else
        Exit Sub
      End If
    Else
      If asIsFileExist(GetDiaryFileNameXML(Index)) Then
        If MsgBox("Обнаружен одноимённый XML файл. Возможно этот файл уже был отправлен. Создать новый?", vbQuestion + vbOKCancel) = vbOK Then
          If Index = 999 Then
            MsgBox "Нет свободных номеров для файлов дневника.", vbCritical
            Exit Sub
          End If
          
          Index = Index + 1
          FileName = GetDiaryFileNameTXT(Index)
          CreateFile FileName
        Else
          FileName = GetDiaryFileNameTXT(Index)
        End If
      Else
        FileName = GetDiaryFileNameTXT(Index)
      End If
    End If
  End If
  
  RC = ShellExecute(0, "open", FileName, "", "", SW_SHOWDEFAULT)
  If RC <= 32 And RC >= 0 Then
    MsgBox "Не удаётся открыть или создать файл дневника. ShellExecute() вернула " & CStr(RC) & ".", vbCritical
  End If
End Sub

Найдите отличия, так сказать ^_~

Кстати, константа с каталогом файла дневника в Win16 версии отличается от Win32 потому что у меня на буке и на настольном флэшка монтируется под разной буквой. Ещё заметно, что в Win16 версии путь указан большими буквами - всё в формате 8.3 изначально. А сам файл дневника выглядит так: DIARY002.TXT. Я обычно ставлю четыре цифры (мне так больше нравится), но тут стоят три по той причине, что я начала это ещё в DOS, а там всё должно быть в 8.3 формате.

Ещё заслуживает внимания вот такое: "If RC <= 32 And RC >= 0 Then". В Win32 мне ни когда не возвращалось отрицательное значение, а вот в Win16 регулярно. По спецификации ShellExecute() возвращает беззнаковое, так что минус - это ограничение VB. Поэтому нужно и предусмотреть такие варианты.

URL