another damn string question!

[dead]

Somebody please tell me how to combine these 2 sets of strings together!!!

Bsp0 = Val(List2.List(0))
Bsp0 = Bsp0 + 1
List2.List(0) = Str$(Bsp0)

-----------------------------------------

Dim j%
For j = 1 to List1.ListCount - 1
    a.WriteLine List1.List(j)
Next

I need it so a.WriteLines are generated as many times as the List2.ListCount indicates. I most also keep this pinned on somewhere after the filename. I'm not really sure how this would all go together, that's why I'm here!!!!

(Left$(Bsp0, Len(Bsp0) - 4))

ANYTHING WOULD BE GOOD!!!!

[HarryW]

Can you clarify exactly which two strings you wish to combine please? I'm trying to figure out exactly what it is you want.

[dead]

Ok, I have a FileListBox, a ListBox. The FileListBox is adding filenames, that are selected, into the ListBox which then goes into a file called "doomanf.cfg". I have to get rid of the file extension with this: (Left$(bsp0, Len(bsp0) - 4)). I need to increment a counter so that:

Bsp0 = (List2.List(0)
Bsp1 = (List2.List(1)
Bsp2 = (List2.List(2)

I don't know how to get the mixture of Bsp(string) and 0(integer) to work together in a single line of. I want the user to be able to select as many or as little filenames as they want. I guess that makes this a dynamic array. Here's the code I've been medaling with!

Public Sub Command1_Click()
  Dim GameType%
  Dim Bsp$
   
     'Bsp0 = (List2.List(0))
    ' Bsp0 = Bsp0 + 1
    ' List2.List(0) = Str$(Bsp0)

  ChDir (Spl1.Dir1.Path) & ("\baseq3")
  GameType = List1.ListIndex
    MsgBox "writing to doomanf.cfg"
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set a = fso.CreateTextFile("doomanf.cfg")
 a.WriteLine ("")
 a.WriteLine ("//This config file cycles through all the maps in the game. FFA mode.")
 a.WriteLine ("")
 a.WriteLine ("set g_gametype ") & (GameType)
 a.WriteLine ("")
 'NewLine =
 'NewLine =
' a.WriteLine ("set m1 ""fraglimit 10" & " ; map ") & (Left$(Bsp0, Len(Bsp0) - 4))
 a.WriteLine ("set m2 ""fraglimit 10" & " ; map ") & (Left$(I, Len(I) - 4))
 'a.WriteLine ("set m3 ""fraglimit 10" & " ; map ") & (Left$(bsp2, Len(bsp2) - 4))
 'a.WriteLine ("set m4 ""fraglimit 10" & " ; map ") & (Left$(bsp3, Len(bsp3) - 4))
 a.Close

   MsgBox "doomanf.cfg written successfully!!!"
   ChDir (Spl1.Dir1.Path)
    'Shell ("quake3.exe ") & (Dedicated) & (" +exec doomanf.cfg")
End Sub