Как в VB работать с файлами (запись, чтение)

Attribute VB_Name = "Backpack"
Option Explicit
Option Base 0
 
' Inventory
' Инвентарь хранить в виде строковой переменной
'
' Глобальный динамический массив определяющий - лежит предмет в "рюкзаке" или нет
Global iItemInBox() As Integer
Global iBoxAllInUse(4) As Integer
'
Global iBoxKeyOnLeft As Integer
Global iBoxKeyOnRight As Integer
'
Global iItemBoxFirst As Integer
Global iItemBoxUse As Integer
' Глобальный строковый динамический массив определяющий - в какой ячейке, какой предмет лежит
Global sItemBoxPos As String
'
' Состояние предмета в инвенторе
Global iItemInUseX As Integer
Global iItemInUseY As Integer
 
Sub BoxKeyPos(iX As Integer, iY As Integer)
  If ((LOC_X + 127) <= iX And (LOC_X + 127 + 54) >= iX) And ((LOC_Y + 698) <= iY And (LOC_Y + 698 + 54) >= iY) Then
    ' Первая ячейка
    If True = iBoxAllInUse(0) Then
      frmMain.picMain.MousePointer = 99
      frmMain.picMain.MouseIcon = LoadPicture(sStartDirName + "RES\ICO\C-H.ICO")
    End If
  ElseIf ((LOC_X + 187) <= iX And (LOC_X + 187 + 54) >= iX) And ((LOC_Y + 698) <= iY And (LOC_Y + 698 + 54) >= iY) Then
    ' Вторая ячейка
    If True = iBoxAllInUse(1) Then
      frmMain.picMain.MousePointer = 99
      frmMain.picMain.MouseIcon = LoadPicture(sStartDirName + "RES\ICO\C-H.ICO")
    End If
  ElseIf ((LOC_X + 247) <= iX And (LOC_X + 247 + 54) >= iX) And ((LOC_Y + 698) <= iY And (LOC_Y + 698 + 54) >= iY) Then
    ' Третья ячейка
    If True = iBoxAllInUse(2) Then
      frmMain.picMain.MousePointer = 99
      frmMain.picMain.MouseIcon = LoadPicture(sStartDirName + "RES\ICO\C-H.ICO")
    End If
  ElseIf ((LOC_X + 307) <= iX And (LOC_X + 307 + 54) >= iX) And ((LOC_Y + 698) <= iY And (LOC_Y + 698 + 54) >= iY) Then
    ' Четвёртая ячейка
    If True = iBoxAllInUse(3) Then
      frmMain.picMain.MousePointer = 99
      frmMain.picMain.MouseIcon = LoadPicture(sStartDirName + "RES\ICO\C-H.ICO")
    End If
  End If
End Sub
 
Sub BoxKeyPosLeft(iX As Integer, iY As Integer)
  ' Промотка Инвенторя влево
  If ((LOC_X + 68) <= iX And (LOC_X + 68 + 48) >= iX) And ((LOC_Y + 703) <= iY And (LOC_Y + 703 + 45) >= iY) Then
    ' Промотка Инвенторя влево
    If True = iBoxKeyOnLeft Then
      frmMain.picMain.MousePointer = 99
      frmMain.picMain.MouseIcon = LoadPicture(sStartDirName + "RES\ICO\C-H.ICO")
    End If
  End If
End Sub
 
Sub BoxKeyPosRight(iX As Integer, iY As Integer)
  ' Промотка Инвенторя вправо
  If ((LOC_X + 369) <= iX And (LOC_X + 369 + 48) >= iX) And ((LOC_Y + 703) <= iY And (LOC_Y + 703 + 45) >= iY) Then
    ' Промотка Инвенторя вправо
    If True = iBoxKeyOnRight Then
      frmMain.picMain.MousePointer = 99
      frmMain.picMain.MouseIcon = LoadPicture(sStartDirName + "RES\ICO\C-H.ICO")
    End If
  End If
End Sub
 
Sub BoxKeySet(iX As Integer, iY As Integer)
  Call InventoryView
  If ((LOC_X + 127) <= iX And (LOC_X + 127 + 54) >= iX) And ((LOC_Y + 698) <= iY And (LOC_Y + 698 + 54) >= iY) Then
    ' Первая ячейка
    If True = iBoxAllInUse(0) Then
      iItemInUseX = LOC_X + 124
      iItemInUseY = LOC_Y + 694
      iItemBoxUse = CInt(Asc(Mid$(sItemBoxPos, iItemBoxFirst + 1 - 1, 1)))
    End If
  ElseIf ((LOC_X + 187) <= iX And (LOC_X + 187 + 54) >= iX) And ((LOC_Y + 698) <= iY And (LOC_Y + 698 + 54) >= iY) Then
    ' Вторая ячейка
    If True = iBoxAllInUse(1) Then
      iItemInUseX = LOC_X + 184
      iItemInUseY = LOC_Y + 694
      iItemBoxUse = CInt(Asc(Mid$(sItemBoxPos, iItemBoxFirst + 2 - 1, 1)))
    End If
  ElseIf ((LOC_X + 247) <= iX And (LOC_X + 247 + 54) >= iX) And ((LOC_Y + 698) <= iY And (LOC_Y + 698 + 54) >= iY) Then
    ' Третья ячейка
    If True = iBoxAllInUse(2) Then
      iItemInUseX = LOC_X + 244
      iItemInUseY = LOC_Y + 694
      iItemBoxUse = CInt(Asc(Mid$(sItemBoxPos, iItemBoxFirst + 3 - 1, 1)))
    End If
  ElseIf ((LOC_X + 307) <= iX And (LOC_X + 307 + 54) >= iX) And ((LOC_Y + 698) <= iY And (LOC_Y + 698 + 54) >= iY) Then
    ' Четвёртая ячейка
    If True = iBoxAllInUse(3) Then
      iItemInUseX = LOC_X + 304
      iItemInUseY = LOC_Y + 694
      iItemBoxUse = CInt(Asc(Mid$(sItemBoxPos, iItemBoxFirst + 4 - 1, 1)))
    End If
  End If
End Sub
 
Sub BoxKeySetLeft(iX As Integer, iY As Integer)
  ' Промотка Инвенторя влево
  If ((LOC_X + 68) <= iX And (LOC_X + 68 + 48) >= iX) And ((LOC_Y + 703) <= iY And (LOC_Y + 703 + 45) >= iY) Then
    ' Промотка Инвенторя влево
    If True = iBoxKeyOnLeft Then
      iItemBoxFirst = iItemBoxFirst - 1
      If 1 >= iItemBoxFirst Then
        iItemBoxFirst = 1
        iBoxKeyOnLeft = False
        Call BarBoxLNone
      End If
      iItemBoxUse = 0
      Call InventoryView
    End If
    If (Len(sItemBoxPos) - 3) > iItemBoxFirst Then
      iBoxKeyOnRight = True
      Call BarBoxROn
    End If
  End If
End Sub
 
Sub BoxKeySetRight(iX As Integer, iY As Integer)
  ' Промотка Инвенторя вправо
  If ((LOC_X + 369) <= iX And (LOC_X + 369 + 48) >= iX) And ((LOC_Y + 703) <= iY And (LOC_Y + 703 + 45) >= iY) Then
    ' Промотка Инвенторя вправо
    If True = iBoxKeyOnRight Then
      iItemBoxFirst = iItemBoxFirst + 1
      If (Len(sItemBoxPos) - 3) <= iItemBoxFirst Then
        iItemBoxFirst = Len(sItemBoxPos) - 3
        iBoxKeyOnRight = False
        Call BarBoxRNone
      End If
      iItemBoxUse = 0
      Call InventoryView
    End If
    If 1 < iItemBoxFirst Then
      iBoxKeyOnLeft = True
      Call BarBoxLOn
    End If
  End If
End Sub
 
 
Sub InUse(iX As Integer, iY As Integer)
  Static iRet As Integer
  Static lDstDC As Long
  Static lSrcDC As Long
  Static iX1 As Integer
  Static iY1 As Integer
  Static iW1 As Integer
  Static iH1 As Integer
  '
  iX1 = iX
  iY1 = iY
  iW1 = frmMain.picInUseSprite.Width
  iH1 = frmMain.picInUseSprite.Height
  lDstDC = frmMain.picMain.hDC
  lSrcDC = frmMain.picInUseSprite.hDC
  iRet = TransparentBlt(lDstDC, iX1, iY1, iW1, iH1, lSrcDC, 0, 0, iW1, iH1, RGB(0, 0, 0))
End Sub
 
Sub InventoryInit()
  ' Начальное количество предметов в инвентаре равно нулю
  ' А позиция первго прдмета равна 1
  iItemBoxFirst = 1
  ' Создание пустого массива или массива из одного элемента???!!!
  ReDim iItemBoxPos(0) As Integer
  ReDim iItemBoxPosTemp(0) As Integer
  '
  frmMain.picInUseSprite.BorderStyle = 0
  frmMain.picInUseSprite.AutoRedraw = True
  frmMain.picInUseSprite.AutoSize = True
  frmMain.picInUseSprite.Visible = False
  frmMain.picInUseSprite = LoadPicture(sStartDirName + "RES\SPR\IN-USE.BMP")
  '
  iBoxKeyOnLeft = False
  iBoxKeyOnRight = False
  Call BarBoxLNone
  Call BarBoxRNone
  sItemBoxPos = ""
End Sub
 
Sub InventoryView()
  Dim lDstDC As Long
  Dim lSrcDC As Long
  Dim iRet As Integer
  Dim iW As Integer
  Dim iH As Integer
  Dim iX As Integer
  Dim iY As Integer
  Dim iI As Integer
  Dim iI4 As Integer
  '
  'iItemBoxUse = 0
  For iI = 0 To 3 Step 1
    iBoxAllInUse(iI) = False
  Next iI
  '
  For iI = 0 To 3 Step 1
    lDstDC = frmMain.picMain.hDC
    lSrcDC = frmMain.picEmptyBox.hDC
    iW = frmMain.picEmptyBox.Width
    iH = frmMain.picEmptyBox.Height
    iX = LOC_X + 124 + (iI * 60)
    iY = LOC_Y + 695
    iRet = BitBlt(lDstDC, iX, iY, iW, iH, lSrcDC, 0, 0, SRCCOPY)
  Next iI
  '
  If Len(sItemBoxPos) Then
  End If
  iI4 = 0
  If 0 <> Len(sItemBoxPos) Then
    ' В инвенторе есть хотя бы один предмет!
    For iI = 1 To Len(sItemBoxPos) Step 1
      If 3 < iI4 Then
        Exit For
      ElseIf iItemBoxFirst <= iI Then
        iBoxAllInUse(iI4) = True
        lDstDC = frmMain.picMain.hDC
        lSrcDC = frmMain.picItemBox(CInt(Asc(Mid$(sItemBoxPos, iI, 1))) - 1).hDC
        iW = frmMain.picItemBox(CInt(Asc(Mid$(sItemBoxPos, iI, 1))) - 1).Width
        iH = frmMain.picItemBox(CInt(Asc(Mid$(sItemBoxPos, iI, 1))) - 1).Height
        iX = LOC_X + 124 + (iI4 * 60)
        iY = LOC_Y + 695
        iRet = BitBlt(lDstDC, iX, iY, iW, iH, lSrcDC, 0, 0, SRCCOPY)
        iI4 = iI4 + 1
      End If
    Next iI
  End If
  If True = iBoxKeyOnLeft Then
    Call BarBoxLOff
  End If
  If True = iBoxKeyOnRight Then
    Call BarBoxROff
  End If
End Sub
 
 
Sub ItemAdd(iItem As Integer)
  ' Добавить предмет в инвентарь
  If True = iItemInBox(iItem) Then
    sItemBoxPos = sItemBoxPos + Chr$(iItem)
    If 4 < Len(sItemBoxPos) Then
      iItemBoxFirst = Len(sItemBoxPos) - 3
      iBoxKeyOnLeft = True
      Call BarBoxLOn
      iBoxKeyOnRight = False
      Call BarBoxRNone
    End If
  End If
End Sub
 
Sub ItemAddNPC(iItem As Integer)
  ' Добавить предмет выданный NPC в инвентарь
  sItemBoxPos = sItemBoxPos + Chr$(iItem)
  If 4 < Len(sItemBoxPos) Then
    iItemBoxFirst = Len(sItemBoxPos) - 3
    iBoxKeyOnLeft = True
    Call BarBoxLOn
    iBoxKeyOnRight = False
    Call BarBoxRNone
  End If
End Sub
 
Sub ItemDel(iItem As Integer)
  ' Удалить предмет из инвентаря
  Dim sTA As String
  Dim sTB As String
  Dim iI As Integer
  Dim iChr As Integer
  '
  ' Перевод индексации с 0 на 1
  ' iItem = iItem + 1
  For iI = 1 To Len(sItemBoxPos) Step 1
    iChr = CInt(Asc(Mid$(sItemBoxPos, iI, 1)))
    If iItem = iChr Then
      sTA = Left$(sItemBoxPos, iI - 1)
      sTB = Right$(sItemBoxPos, Len(sItemBoxPos) - iI)
      sItemBoxPos = sTA + sTB
      iItemBoxUse = 0
      Exit For
    End If
  Next iI
End Sub

frmMain.Top
frmMain.Left
frmMain.Height
frmMain.Width
frmMain.BackColor