VERSION 5.00
Begin VB.Form frmSiInput 
   Caption         =   "SI
   ClientHeight    =   5925
   ClientLeft      =   2115
   ClientTop       =   6345
   ClientWidth     =   7920
   LinkTopic       =   "Form1"
   ScaleHeight     =   5925
   ScaleWidth      =   7920
   StartUpPosition =   1  '
   Begin VB.CommandButton cmdCutID3v2 
      Caption         =   "ID3Tag v2
      Height          =   375
      Left            =   2700
      TabIndex        =   44
      Top             =   5520
      Width           =   1575
   End
   Begin VB.TextBox txtListISBJ 
      Height          =   270
      Left            =   1080
      TabIndex        =   42
      Top             =   4440
      Width           =   6735
   End
   Begin VB.TextBox txtListIMED 
      Height          =   270
      Left            =   1080
      TabIndex        =   40
      Top             =   4080
      Width           =   6735
   End
   Begin VB.TextBox txtListIMP3 
      Height          =   270
      Left            =   1080
      TabIndex        =   38
      Top             =   4800
      Width           =   6735
   End
   Begin VB.CommandButton btOpen 
      Caption         =   "open"
      Height          =   255
      Left            =   6840
      TabIndex        =   37
      Top             =   120
      Width           =   855
   End
   Begin VB.TextBox txtFile 
      Height          =   270
      Left            =   1080
      TabIndex        =   0
      Top             =   120
      Width           =   5655
   End
   Begin VB.CheckBox chkChgExp 
      Caption         =   "
      Height          =   255
      Left            =   6240
      TabIndex        =   35
      Top             =   5160
      Value           =   1  '
      Width           =   1575
   End
   Begin VB.CommandButton cmdCutMacBin 
      Caption         =   "Mac
      Height          =   375
      Left            =   1140
      TabIndex        =   34
      Top             =   5520
      Width           =   1575
   End
   Begin VB.CommandButton cmdChgMp3 
      Caption         =   "RIFF->MP3"
      Height          =   375
      Left            =   4260
      TabIndex        =   33
      Top             =   5160
      Width           =   1575
   End
   Begin VB.CommandButton cmdChgWav 
      Caption         =   "MP3->RIFF WAV"
      Height          =   375
      Left            =   2700
      TabIndex        =   32
      Top             =   5160
      Width           =   1575
   End
   Begin VB.CommandButton cmdChgRmp 
      Caption         =   "MP3->RIFF MP3"
      Height          =   375
      Left            =   1140
      TabIndex        =   31
      Top             =   5160
      Width           =   1575
   End
   Begin VB.CommandButton cmdReg 
      Caption         =   "
      Default         =   -1  'True
      Height          =   375
      Left            =   5820
      TabIndex        =   30
      Top             =   5520
      Width           =   975
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "
      Height          =   375
      Left            =   6900
      TabIndex        =   29
      Top             =   5520
      Width           =   975
   End
   Begin VB.TextBox txtListICMS 
      Height          =   270
      Left            =   4920
      TabIndex        =   28
      Top             =   3360
      Width           =   2895
   End
   Begin VB.TextBox txtListITCH 
      Height          =   270
      Left            =   1080
      TabIndex        =   27
      Top             =   3360
      Width           =   2895
   End
   Begin VB.TextBox txtListIKEY 
      Height          =   270
      Left            =   4920
      TabIndex        =   26
      Top             =   3000
      Width           =   2895
   End
   Begin VB.TextBox txtListISFT 
      Height          =   270
      Left            =   1080
      TabIndex        =   25
      Top             =   3000
      Width           =   2895
   End
   Begin VB.TextBox txtListIGNR 
      Height          =   270
      Left            =   4920
      TabIndex        =   24
      Top             =   1920
      Width           =   2895
   End
   Begin VB.TextBox txtListICRD 
      Height          =   270
      Left            =   1080
      TabIndex        =   23
      Top             =   1920
      Width           =   2895
   End
   Begin VB.TextBox txtListISRC 
      Height          =   270
      Left            =   4920
      TabIndex        =   22
      Top             =   2640
      Width           =   2895
   End
   Begin VB.TextBox txtListIENG 
      Height          =   270
      Left            =   1080
      TabIndex        =   21
      Top             =   2640
      Width           =   2895
   End
   Begin VB.TextBox txtListILYC 
      Height          =   270
      Left            =   1080
      TabIndex        =   20
      Top             =   3720
      Width           =   6735
   End
   Begin VB.TextBox txtListICOP 
      Height          =   270
      Left            =   1080
      TabIndex        =   19
      Top             =   2280
      Width           =   6735
   End
   Begin VB.TextBox txtListICMT 
      Height          =   270
      Left            =   1080
      TabIndex        =   18
      Top             =   1560
      Width           =   6735
   End
   Begin VB.TextBox txtListIPRD 
      Height          =   270
      Left            =   1080
      TabIndex        =   17
      Top             =   1200
      Width           =   6735
   End
   Begin VB.TextBox txtListIART 
      Height          =   270
      Left            =   1080
      TabIndex        =   16
      Top             =   840
      Width           =   6735
   End
   Begin VB.TextBox txtListINAM 
      Height          =   270
      Left            =   1080
      TabIndex        =   15
      Top             =   480
      Width           =   6735
   End
   Begin VB.Label Label4 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   43
      Top             =   4440
      Width           =   855
   End
   Begin VB.Label Label3 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   41
      Top             =   4080
      Width           =   855
   End
   Begin VB.Label Label2 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   39
      Top             =   3720
      Width           =   855
   End
   Begin VB.Label Label1 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   36
      Top             =   120
      Width           =   855
   End
   Begin VB.Label Label29 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   14
      Top             =   480
      Width           =   855
   End
   Begin VB.Label Label30 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   13
      Top             =   840
      Width           =   855
   End
   Begin VB.Label Label31 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   12
      Top             =   1200
      Width           =   855
   End
   Begin VB.Label Label32 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   11
      Top             =   1560
      Width           =   855
   End
   Begin VB.Label Label33 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   10
      Top             =   1920
      Width           =   855
   End
   Begin VB.Label Label34 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   3960
      TabIndex        =   9
      Top             =   1920
      Width           =   855
   End
   Begin VB.Label Label40 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   2640
      Width           =   855
   End
   Begin VB.Label Label41 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label44 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   2280
      Width           =   855
   End
   Begin VB.Label Label46 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   3960
      TabIndex        =   5
      Top             =   2640
      Width           =   855
   End
   Begin VB.Label Label35 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   3960
      TabIndex        =   4
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label42 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   3360
      Width           =   855
   End
   Begin VB.Label Label47 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   3960
      TabIndex        =   2
      Top             =   3360
      Width           =   855
   End
   Begin VB.Label Label36 
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "MP3
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   4800
      Width           =   855
   End
Attribute VB_Name = "frmSiInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim fType As Long
Private Sub btOpen_Click()
    Dim ListData As LIST_INFO_EX_VB
    Dim listString As String
    cmdChgRmp.Enabled = False
    cmdChgWav.Enabled = False
    cmdChgMp3.Enabled = False
    cmdCutMacBin.Enabled = False
    cmdCutID3v2.Enabled = False
    cmdReg.Enabled = False
    If Dir(txtFile.Text) = "" Then Exit Sub
    fType = vbmp3_getFileType(Trim(txtFile.Text))
    If fType = -1 Then
        Exit Sub
    ElseIf (fType And FT_MAC) = FT_MAC Then
        cmdCutMacBin.Enabled = True
        Exit Sub
    ElseIf (fType And FT_ID3V2) = FT_ID3V2 Then
        cmdCutID3v2.Enabled = True
        If (fType And FT_WAVE) <> FT_WAVE And (fType And FT_RMP) <> FT_RMP Then
            cmdChgRmp.Enabled = True
            cmdChgWav.Enabled = True
        Else
            cmdChgMp3.Enabled = True
        End If
    ElseIf (fType And FT_WAVE) <> FT_WAVE And (fType And FT_RMP) <> FT_RMP Then
        cmdChgRmp.Enabled = True
        cmdChgWav.Enabled = True
    Else
        cmdChgMp3.Enabled = True
        cmdReg.Enabled = True
    End If
    'If vbmp3_getFileInfo2(Trim(txtFile.Text), TagData, MpegData, ListData) = False Then Exit Sub
    If vbmp3_getListInfoExVB(Trim(txtFile.Text), ListData) = False Then Exit Sub
    txtListINAM.Text = NTrim(ListData.INAM)
    txtListIART.Text = NTrim(ListData.IART)
    txtListIPRD.Text = NTrim(ListData.IPRD)
    txtListICMT.Text = NTrim(ListData.ICMT)
    txtListICRD.Text = NTrim(ListData.ICRD)
    txtListIGNR.Text = NTrim(ListData.IGNR)
    txtListICOP.Text = NTrim(ListData.ICOP)
    txtListIENG.Text = NTrim(ListData.IENG)
    txtListISRC.Text = NTrim(ListData.ISRC)
    txtListISFT.Text = NTrim(ListData.ISFT)
    txtListIKEY.Text = NTrim(ListData.IKEY)
    txtListITCH.Text = NTrim(ListData.ITCH)
    txtListICMS.Text = NTrim(ListData.ICMS)
    txtListIMED.Text = NTrim(ListData.IMED)
    txtListISBJ.Text = NTrim(ListData.ISBJ)
    txtListIMP3.Text = NTrim(ListData.IMP3)
    txtListILYC.Text = NTrim(ListData.ILYC)
End Sub
Private Sub cmdCancel_Click()
    Unload Me
End Sub
Private Sub cmdChgMp3_Click()
    If Dir(txtFile.Text) = "" Then Exit Sub
    If MsgBox("
H", vbYesNo + vbQuestion, "
F") = vbYes Then
        If chkChgExp.Value = 1 Then
            iFile = left(Trim(txtFile.Text), Len(Trim(txtFile.Text)) - 4)
            iFile = iFile + ".mp3"
        Else
            iFile = Trim(txtFile.Text)
        End If
        If Dir(iFile) <> "" Then
            If MsgBox("
H", vbYesNo + vbQuestion, "
F") = vbNo Then Exit Sub
            Kill iFile
        End If
        FileCopy Trim(txtFile.Text), iFile
        
        Call vbmp3_changeMp3(iFile)
        txtFile.Text = iFile
        Call btOpen_Click
    End If
End Sub
Private Sub cmdChgRmp_Click()
    Dim iFile As String
    If Dir(txtFile.Text) = "" Then Exit Sub
    If MsgBox("
 RIFF MP3(RMP)
H", vbYesNo + vbQuestion, "
F") = vbYes Then
        If chkChgExp.Value = 1 Then
            iFile = left(Trim(txtFile.Text), Len(Trim(txtFile.Text)) - 4)
            iFile = iFile + ".rmp"
        Else
            iFile = Trim(txtFile.Text)
        End If
        If Dir(iFile) <> "" Then
            If MsgBox("
H", vbYesNo + vbQuestion, "
F") = vbNo Then Exit Sub
            Kill iFile
        End If
        FileCopy Trim(txtFile.Text), iFile
        Call vbmp3_changeRmp(iFile)
        txtFile.Text = iFile
        Call btOpen_Click
    End If
End Sub
Private Sub cmdChgWav_Click()
    If Dir(txtFile.Text) = "" Then Exit Sub
    If MsgBox("
 RIFF WAVE
H", vbYesNo + vbQuestion, "
F") = vbYes Then
        If chkChgExp.Value = 1 Then
            iFile = left(Trim(txtFile.Text), Len(Trim(txtFile.Text)) - 4)
            iFile = iFile + ".wav"
        Else
            iFile = Trim(txtFile.Text)
        End If
        If Dir(iFile) <> "" Then
            If MsgBox("
H", vbYesNo + vbQuestion, "
F") = vbNo Then Exit Sub
            Kill iFile
        End If
        FileCopy Trim(txtFile.Text), iFile
        
        Call vbmp3_changeWav(iFile)
        txtFile.Text = iFile
        Call btOpen_Click
    End If
End Sub
Private Sub cmdCutID3v2_Click()
    If Dir(txtFile.Text) = "" Then Exit Sub
    If MsgBox("ID3Tag v2
H", vbYesNo + vbQuestion, "
F") = vbYes Then
        Call vbmp3_cutID3v2(Trim(txtFile.Text))
        Call btOpen_Click
    End If
End Sub
Private Sub cmdCutMacBin_Click()
    If Dir(txtFile.Text) = "" Then Exit Sub
    If MsgBox("Mac
H", vbYesNo + vbQuestion, "
F") = vbYes Then
        Call vbmp3_cutMacBinary(Trim(txtFile.Text))
        Call btOpen_Click
    End If
End Sub
Private Sub cmdReg_Click()
    'Dim ListData As LIST_INFO_EX_VB
    Dim ListData As LIST_INFO_EX2
    If Dir(txtFile.Text) = "" Then Exit Sub
    ListData.INAM = txtListINAM.Text
    ListData.IART = txtListIART.Text
    ListData.IPRD = txtListIPRD.Text
    ListData.ICMT = txtListICMT.Text
    ListData.ICRD = txtListICRD.Text
    ListData.IGNR = txtListIGNR.Text
    ListData.ICOP = txtListICOP.Text
    ListData.IENG = txtListIENG.Text
    ListData.ISRC = txtListISRC.Text
    ListData.ISFT = txtListISFT.Text
    ListData.IKEY = txtListIKEY.Text
    ListData.ITCH = txtListITCH.Text
    ListData.ICMS = txtListICMS.Text
    ListData.IMED = txtListIMED.Text
    ListData.ISBJ = txtListISBJ.Text
    ListData.IMP3 = txtListIMP3.Text
    ListData.ILYC = txtListILYC.Text
    'Call vbmp3_setListInfo(Trim(txtFile.Text), ListData)
    'Call vbmp3_setListInfoExVB(Trim(txtFile.Text), ListData)
    Call vbmp3_setListInfoEX2(Trim(txtFile.Text), ListData)
    Unload Me
End Sub
Private Sub Form_Load()
    cmdChgRmp.Enabled = False
    cmdChgWav.Enabled = False
    cmdChgMp3.Enabled = False
    cmdCutMacBin.Enabled = False
    cmdCutID3v2.Enabled = False
    cmdReg.Enabled = False
End Sub