Public Type GBD_Artist
  ZmI_Artist_PN As String *  64                 
  Nxt_ZmI_Artist_PN As Long                 
  ZmI_Artist_PN_Prizv As String *  16          
  Nxt_ZmI_Artist_PN_Prizv As Long            
  ZmI_Artist_PN_Real As String *  64            
  Nxt_ZmI_Artist_PN_Real As Long              
  ZmI_Artist_PN_Prizv_Real As String *  16      
  Nxt_ZmI_Artist_PN_Prizv_Real As Long       
  BAN_ZmI_Artist_PN_Real As Boolean           
  NtF_ZmI_Artist_PN_Real As Boolean         
  Dbl_ZmI_Artist_PN_Real As Boolean          
  ZmI_Artist_PN_Real_Link_Sirec As Long     
  ZmI_Artist_PN_Real_Link_SkN As Long       
  ZmI_Artist_PN_Real_Link_Path As Long      
  ZmI_Artist_PN_Real_Link_Track As Long       
  ZmI_Artist_PN_Real_Link_URL As Long         
  ZmI_Artist_PN_Real_Link_Info As Long       
  ZmI_Artist_PN_Real_Link_avtozamina As Long 
  ACS_ZmI_Artist_PN_Real As Boolean          
  Del_ZmI_Artist_PN_Real As Boolean          
End Type

Public Type NewBaza
 q1 As String *  5 
 q2 As Long
 q3 As String *  2 
End Type

Private Sub Command1_Click()
Dim s As NewBaza
Dim f As Long
'  Open "c:\ggg1.txt" For Random As #1 Len = Len(s)
'    For f = 1 To 100
'      s.q1 = "aaaaa"
'      s.q2 = 100
'      s.q3 = "bb"
'      Put #1, f, s
'    Next
'  Close #1
  
  Dim R As Long
  R = InputBox("Укажите новый размер", "Конвертация", Len(s))
  Open "c:\ggg2.txt" For Output As # 2 : Close # 2 
  Open "c:\ggg2.txt" For Random As # 2  Len = R
  Open "c:\ggg1.txt" For Random As # 1  Len = Len(s)
    For f =  1  To LOF( 1 ) / Len(s)
      Get # 1 , f, s
      Put # 2 , f, s
    Next
  Close # 1 
  Close # 2 

End Sub

Public Type GBD_Artist
  ZmI_Artist_PN As String *  64                 
  Nxt_ZmI_Artist_PN As Long                 
  ZmI_Artist_PN_Prizv As String *  16          
  Nxt_ZmI_Artist_PN_Prizv As Long            
  ZmI_Artist_PN_Real As String *  64            
  Nxt_ZmI_Artist_PN_Real As Long              
  ZmI_Artist_PN_Prizv_Real As String *  16      
  Nxt_ZmI_Artist_PN_Prizv_Real As Long       
  BAN_ZmI_Artist_PN_Real As Boolean           
  NtF_ZmI_Artist_PN_Real As Boolean         
  Dbl_ZmI_Artist_PN_Real As Boolean          
  ZmI_Artist_PN_Real_Link_Sirec As Long     
  ZmI_Artist_PN_Real_Link_SkN As Long       
  ZmI_Artist_PN_Real_Link_Path As Long      
  ZmI_Artist_PN_Real_Link_Track As Long       
  ZmI_Artist_PN_Real_Link_URL As Long         
  ZmI_Artist_PN_Real_Link_Info As Long       
  ZmI_Artist_PN_Real_Link_avtozamina As Long 
  ACS_ZmI_Artist_PN_Real As Boolean          
  Del_ZmI_Artist_PN_Real As Boolean          
End Type

'byte - 1 байт
'boolean - 2 байта
'long - 4
'integer - 2
'date - 8
'curency - 8
'single - 4
'double - 8
'decimal
'input
Public Function CovertBD(NameFile As String, NewNameFile As String, Len1 As Long, NewLen2 As Long)
  Dim R As Long
  Dim M As String
  Dim f As Long
  R = NewLen2 - Len1: If R <  1  Then Exit Function
  Open NameFile For Binary As # 1 
  Open NewNameFile For Output As # 2 
    For f =  1  To LOF( 1 ) / Len1
      M = Input(Len1,  1 )
      Print # 2 , M & Space(R);
    Next
  Close # 1 
  Close # 2 
End Function

Private Sub Text1_Change()
  Dim vWords As Variant
  Dim vWord As Variant
  Dim s As String
  Dim i As Long
  Dim Kst As Long

  vWords = Split(Text1.Text, vbCrLf)

  For Each vWord In vWords
    s = LCase(vWord)
    i = InStr( 1 , s, " as ", vbTextCompare)
    If i <>  0  Then
    
      s = Mid(s, i +  4 )
      If s = "byte" Then
        Kst = Kst +  1 
      ElseIf s = "boolean" Then
        Kst = Kst +  2 
      ElseIf s = "long" Then
        Kst = Kst +  4 
      ElseIf s = "integer" Then
        Kst = Kst +  2 
      ElseIf s = "date" Then
        Kst = Kst +  8 
      ElseIf s = "curency" Then
        Kst = Kst +  8 
      ElseIf s = "single" Then
        Kst = Kst +  4 
      ElseIf s = "double" Then
        Kst = Kst +  8 
      ElseIf Left(s,  9 ) = "string * " Then
        Kst = Kst + Val(Mid(s,  9 ))
      End If
    End If
  Next
 Label5.Caption = Kst
End Sub