ArrayList help.

[Worf]

Hi.

I have tried to make a small database using arraylist to store the information in text files and doing ok. The only problem i am having is Catagories and Sub-Catagories. Below is the code i am using, it's still a bit messy at the moment with trying out different methods. I would be greatful with help with this code if i am doing it wrong.

Below is the main menu.

view plaincopy to clipboardprint?
Public Class Menu    
  
Private Sub Menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    
  
' Get user name    
Username = System.Environment.UserName    
  
End Sub    
  
Private Sub ImportFPI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImportFPI.Click ' If FPI selected then load Catagory with FPI and show the import form to import .FPI files   
Catagory = "FPI"    
ImpFpi.Show()    
  
End Sub ' View the Database   
Private Sub ViewFPI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewFPI.Click    
  
If FPIEmpty = Nothing Then    
  
MsgBox(Username + " Database empty, nothing to display.")    
  
Return    
  
Else    
  
ViewFPIScript.Show()    
  
End If    
  
End Sub ' Show FPI form to import .FPI text files.   
Private Sub FPIImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FPIImport.Click    
  
Catagory = "FPI"    
  
ImpFpi.Show()    
  
End Sub ' Show .FPE form to import .FPE files.   
Private Sub FPEImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FPEImport.Click    
  
Catagory = "FPE"    
  
  
End Sub

 ' Sub-Catagories that the FPE\FPI files will be stored under.

Private Sub Enemies_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enemies.Click    
  
SubCat = "Enemies"    
  
End Sub    
  
Private Sub Electronics_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Electronics.Click    
  
SubCat = "Electronics"    
  
End Sub    
  
Private Sub Items_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Items.Click    
  
SubCat = "Items"    
  
End Sub    
  
Private Sub Objects_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Objects.Click    
  
SubCat = "Objects"    
  
End Sub    
  
Private Sub Weapons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Weapons.Click    
  
SubCat = "Weapons"    
  
End Sub    
  
Private Sub Water_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Water.Click    
  
SubCat = "Water"    
  
End Sub    
End Class

This code imports .FPI text files and stores the information.

Imports System    
  
Public Class ImpFpi    
  
Private Sub Browse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Browse.Click    
  
With openfiledlg    
  
'.InitialDirectory = "C:\"    
.Filter = "FPI Files (*.fpi)/*.fpi|"    
.CheckFileExists = True    
  
If openfiledlg.ShowDialog = Windows.Forms.DialogResult.OK Then    
  
TxtFile = openfiledlg.SafeFileName    
  
  
If Not System.IO.Path.GetExtension(TxtFile) = ".fpi" Then    
MessageBox.Show(Username + " please select an FPI file")    
TxtFile = "...."    
  
Else    
  
Dim ii As Integer = openfiledlg.FileName.LastIndexOf("\"c)    
TxtPath = openfiledlg.FileName.Substring(0, ii)    
End If    
End If    
End With    
  
If (Not TxtPath Is Nothing AndAlso String.IsNullOrEmpty(TxtFile)) Then    
  
MsgBox(Username + " No .fpi file selected.")    
  
Return    
  
Else    
  
TempPath = TxtPath + "\" + TxtFile    
  
Dim s As String = TempPath    
Dim txt As String = IO.File.ReadAllText(s)    
  
ViewFPI.Text = txt    
  
FPIFName.Text = TxtFile    
FPIPath.Text = TempPath    
  
End If    
  
End Sub    
  
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click    
  
Close()    
  
End Sub    
  
Private Sub AddFPI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddFPI.Click    
  
If (Not TempPath Is Nothing AndAlso String.IsNullOrEmpty(TxtFile)) Then    
  
MsgBox(Username + " No .fpi file selected.")    
  
Return    
  
Else    
  
Try    
Dim s As String = TempPath    
Dim txt As String = IO.File.ReadAllText(s)    
  
  
FPITxtName.Add(TxtFile) ' Add .FPI file name to list    
ScriptDesc.Add(DescriptionInput.Text) ' Add description about the .FPI text file to list.   
Usage.Add(UsageInput.Text) ' Add Usage of the .FPI text file to list    
FPIItemList.Add(txt) ' Add the .FPI text file file to list.    
  
FPIEmpty = 1 ' Set to one if the FPI database is not empty.    
  
TxtFile = Nothing    
DescriptionInput.Text = Nothing    
UsageInput.Text = Nothing    
txt = ""    
  
Catch ex As Exception    
  
End Try    
  
End If    
  
End Sub    
  
End Class

This code allows you to view the FPI text files stored.

Public Class ViewFPIScript    
  
Private Sub ViewScript_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' Add each FPI file name to the listbox.    
  
For Each s As String In FPITxtName    
' Dim i As New items(s)    
ListBox1.Items.Add(s)    
Next    
  
End Sub    
  
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click    
  
Close()    
  
End Sub ' Display FPI scripts that the user selects from the listbox.Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged    
  
For j As Integer = 0 To ListBox1.Items.Count - 1    
If ListBox1.SelectedIndex = j Then    
  
Label2.Text = FPITxtName.Item(j)    
ScriptDescr.Text = Convert.ToString(ScriptDesc.Item(j), CultureInfo.CurrentCulture)    
UsageInput.Text = Convert.ToString(Usage.Item(j), CultureInfo.CurrentCulture)    
FPIScript.Text = Convert.ToString(FPIItemList.Item(j), CultureInfo.CurrentCulture)    
  
End If    
Next    
  
End Sub    
End Class

What i can't figure out is how to apply the Catagory and Sub-Catagory for each FPI script so that when the user selects a sub-catagory, any FPI text files stored under it is displayed.

So, if the user selected Catagory - FPI and Sub-Catagory - Enemies, the FPI text file is stored under this Catagory and Sub-Catagory. As you can see in the menu code there is also an 'FPE' and other Subcatagory.

Thank you for your help.

Worf.