HTA + Array + reuse Array

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

HTA + Array + reuse Array

Logged in as: Guest

arrSession:exec spGetSession 2,2,47111

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> HTA + Array + reuse Array
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

HTA + Array + reuse Array - 5/15/2007 7:34:08 AM

mcds99

Posts: 441
Score: 4
Joined: 2/28/2006
Status: offline

I have an array that has been read from a text file. I've found that an array can't be reused or I just don't know how to reuse an array.
I believe it's me ;-)

The HTA has many drop down list boxes, 96 to be exact, the first selects a file to use and populates the array.
The others just need to hold the list.

name="TeamArray"

The error I get when I use the name="TeamArray" more then once is... Object doesn't support this property or method: 'TeamArray.Add'
I'm not running the script again just trying list what is in the array.

I tried running each drop down list as it's own array, it works but YUCK memory hog.

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

Post #: 1

RE: HTA + Array + reuse Array - 5/15/2007 7:49:23 AM

dm_4ever

Posts: 2726
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

Can you post what you have tried?

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mcds99)

Post #: 2

RE: HTA + Array + reuse Array - 5/15/2007 8:11:09 AM

mcds99

Posts: 441
Score: 4
Joined: 2/28/2006
Status: offline

It's 223 lines... Find the line with "TeamSelect" if there is another TeamSelect it gives the error.

<head><title>Game Setup</Title>
<HTA:Application
    Application="Game Setup"
    Scoll="No"
    Singleinstance="Yes"
    ShowInTaskbar="No"
    Caption="No"
>
</Head>

DIM FileName
DIM oFile
DIM MyTeam

Function window_onload
'### Run when HTA starts,gets list of files removes path, loads file names in to Array
Set fso = CreateObject("Scripting.FileSystemObject")
set dir = fso.GetFolder("C:\BBM\txtData\")
For Each xFile in dir.files
 FileArray = split(xFile, "C:\BBM\txtData\")
   SET objPath = New RegExp  
     objPath.Pattern = "[C:\\BBM\\txtData\\]"
   For Each yFile in FileArray
     If objPath.Test(yFile) Then
       aFile = yFile
       SET objOption = window.document.createElement("option")
         objoption.text = aFile
         TeamSelect.Add(objOption)
      End If
   Next
Next
END Function

Sub CloseWindow
'### Closes the Application
   self.close
End Sub

Function Team
'### Drop down list select loads variables.
DIM i
 For i = 0 To teamselect.options.length - 1
   If teamselect.options(i).selected Then 
     nFile = teamselect.options(i).text
     FileName = "C:\BBM\txtData\" & nFile
   End If
 Next
   MTeam = split(nFile, ".txt")
     MyTeam = MTeam(0)
 call ListofPlayers
End Function

Function WriteHTML
'### Writes the report (Line up and batting order).
 Call CreateFile
 Call WriteHeader
 Call WriteMiddle
 Call WriteEnd
 Call DisplayHTML
End Function

Function CreateFile
'### Creates the HTML file for the report
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
 oFile = ("C:\BBM\htmData\" & game.value &"-"& aMonth.value & aDay.value & aYear.value & ".htm")
   Set fSo1 = CreateObject("Scripting.FileSystemObject")
   Set wrFile = fSo1.CreateTextFile(oFile,true)
   wrFile.Close
End Function

Function WriteHeader
'### Writes the header information to the HTML file.
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
 Set fSo2 = CreateObject("Scripting.FileSystemObject")
 Set wrFile = fSo2.OpenTextFile(oFile, ForAppending)
   wrFile.writeline "<html><body><title>Game Setup</title>"
   wrFile.writeline "<table width=""95%"" border=""1"">"
   wrFile.writeline "<tr><td><center>" & "Opposing Team: " & "<b>" & game.value & "</b>" & " Date: <b>" & aMonth.Value & "-" & aDay.value & "-" & aYear.value &"</b></center></td>"
   wrFile.writeline "</table>"
   wrFile.writeline "<br>"
   wrFile.Close
End Function

Function WriteMiddle
'### Writes the Linup
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
 Set fSo2 = CreateObject("Scripting.FileSystemObject")
 Set wrFile = fSo2.OpenTextFile(oFile, ForAppending)
   wrFile.writeline "<table width=""95%"" border=""1"">"
   wrFile.writeline "<tr><td><b>Positions</b></td><td>1st</td><td>2nd</td><td>3rd</td><td>4th</td><td>5th</td><td>6th</td><td>7th</td><td>8th</td><td>9th</td></tr>"
   wrFile.writeline "<tr><td>Pitcher</td><td>"& TeamArray.Value & "</td></tr>"
   wrFile.writeline "<tr><td>Catcher</td></tr>"
   wrFile.writeline "<tr><td>First</td></tr>"
   wrFile.writeline "<tr><td>Second</td></tr>"
   wrFile.writeline "<tr><td>Short</td></tr>"
   wrFile.writeline "<tr><td>Third</td></tr>"
   wrFile.writeline "<tr><td>Left</td></tr>"
   wrFile.writeline "<tr><td>Center</td></tr>"
   wrFile.writeline "<tr><td>Right</td></tr>"
   wrFile.writeline "</table>"
   wrFile.writeline "<br>"
   WrFile.Close
End Function

Function WriteEnd
'### Writes the Score Sheet and Batting order
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
 Set fSo2 = CreateObject("Scripting.FileSystemObject")
 Set wrFile = fSo2.OpenTextFile(oFile, ForAppending)
   wrFile.writeline "<table width=""95%"" border=""1"">"
   wrFile.writeline "<tr><td><b>Score</b></td><td>1st</td><td>2nd</td><td>3rd</td><td>4th</td><td>5th</td><td>6th</td><td>7th</td><td>8th</td><td>9th</td></tr>"
   wrFile.writeline "<tr><td>" & MyTeam & "</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>" & game.value & "</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td></tr>"
   wrFile.writeline "</table>"
   wrFile.writeline "<br>"
   wrFile.writeline "<table width=""30%"" border=""1"">"
   wrFile.writeline "<th> Batting Order </th>"
   wrFile.writeline "<tr><td>1</td><td>" & TeamArrayA.value & "</td></tr>"
   wrFile.writeline "<tr><td>2</td><td>" & TeamArrayB.value & ".</td></tr>"
   wrFile.writeline "<tr><td>3</td><td>" & TeamArrayC.value & ".</td></tr>"
   wrFile.writeline "<tr><td>4</td><td>" & TeamArrayD.value & ".</td></tr>"
   wrFile.writeline "<tr><td>5</td><td>" & TeamArrayE.value & ".</td></tr>"
   wrFile.writeline "<tr><td>6</td><td>" & TeamArrayF.value & ".</td></tr>"
   wrFile.writeline "<tr><td>7</td><td>" & TeamArrayG.value & ".</td></tr>"
   wrFile.writeline "<tr><td>8</td><td>" & TeamArrayH.value & ".</td></tr>"
   wrFile.writeline "<tr><td>9</td><td>" & TeamArrayI.value & ".</td></tr>"
   wrFile.writeline "<tr><td>10</td><td>" & TeamArrayJ.value & ".</td></tr>"
   wrFile.writeline "<tr><td>11</td><td>" & TeamArrayK.value & ".</td></tr>"
   wrFile.writeline "<tr><td>12</td><td>" & TeamArrayL.value & ".</td></tr>"
   wrFile.writeline "<tr><td>12</td><td>" & TeamArrayM.value & ".</td></tr>"
   wrFile.writeline "<tr><td>12</td><td>" & TeamArrayN.value & ".</td></tr>"
   wrFile.writeline "</table>"
   wrFile.writeline "</body>"
   wrFile.writeline "</html>"
   wrFile.Close
End Function

Function DisplayHTML
'### Displays the Report in the browser.
dispFile = oFile
 Set objExplorer = CreateObject("InternetExplorer.Application")
   objExplorer.Visible = 1
   objExplorer.Navigate "file://" & dispfile
End Function

Function ListofPlayers
'Creates the Array of player names.
ipfile = FileName
 Const ForReading = 1
 Const ForWriting = 2
 Const ForAppending = 8
   Set fSo4 = CreateObject("Scripting.FileSystemObject")
   Set rdFile = fSo4.OpenTextFile(ipFile)
     do while Not rdFile.AtEndofStream
       aPlayer = rdFile.readline()
         SET objPlayer = window.document.createElement("option")
           objPlayer.text = aPlayer
           TeamArray.Add(ObjPlayer)
     Loop
End Function

</Script>

<body Style="font:10 pt Arial; color:White; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#616d7e', EndColorStr='#717d7d')">
<table Width="90%">
   <th align="center">Game Setup</th>
   <tr><td>Select Team: </td><td><Select name="TeamSelect" onChange="Team"></select></td><td>Month</td><td>Day</td><td>Year</td>
   <tr><td> Enter Opposing Team & Date: </td><td><input type="text" name="Game" size="21" maxlength="21"></td><td><input type="text" name="aMonth" size="2" maxlength="2"></td><td><input type="text" name="aDay" size="2" maxlength="2"></td><td><input type="text" name="aYear" size="4" maxlength="4"></td>
   <tr><td><input type="button" value="Close" name="closeButton" onClick="CloseWindow"></td></tr>
   <br>
   </table>
<br><br>
<table Width="90%" border="1">
<th align="center">Positions</th>
   <tr><td></td><td><b>Inning</b></td><td>First</td><td>Second</td><td>Third</td><td>Fourth</td><td>Fifth</td><td>Sixth</td><td>Seventh</td><td>Eighth</td><td>Ninth</td></tr>
   <tr><td><b>Position</b></td><td></td</tr>
   <tr><td>Pitcher<td></tr><td><Select name="TeamArray" onChange=""></select></td><td><Select name="P2Select" onChange=""></select></td><td><Select name="P3Select" onChange=""></select></td><td><Select name="P4Select" onChange=""></select></td><td><Select name="P5Select" onChange=""></select></td><td><Select name="P6Select" onChange=""></select></td><td><Select name="P7Select" onChange=""></select></td><td><Select name="P8Select" onChange=""></select></td><td><Select name="P9Select" onChange=""></select></td></tr>
   <tr><td>Catcher<td></tr><td><Select name="TeamArrayx" onChange=""></select></td><td><Select name="C2Select" onChange=""></select></td><td><Select name="C3Select" onChange=""></select></td><td><Select name="C4Select" onChange=""></select></td><td><Select name="C5Select" onChange=""></select></td><td><Select name="C6Select" onChange=""></select></td><td><Select name="C7Select" onChange=""></select></td><td><Select name="C8Select" onChange=""></select></td><td><Select name="C9Select" onChange=""></select></td></tr>
   <tr><td>First<td></tr><td><Select name="TeamArrayx" onChange=""></select></td><td><Select name="F2Select" onChange=""></select></td><td><Select name="F3Select" onChange=""></select></td><td><Select name="F4Select" onChange=""></select></td><td><Select name="F5Select" onChange=""></select></td><td><Select name="F6Select" onChange=""></select></td><td><Select name="F7Select" onChange=""></select></td><td><Select name="F8Select" onChange=""></select></td><td><Select name="F9Select" onChange=""></select></td></tr>
   <tr><td>Second<td></tr><td><Select name="TeamArrayx" onChange=""></select></td><td><Select name="S2Select" onChange=""></select></td><td><Select name="S3Select" onChange=""></select></td><td><Select name="S4Select" onChange=""></select></td><td><Select name="S5Select" onChange=""></select></td><td><Select name="S6Select" onChange=""></select></td><td><Select name="S7Select" onChange=""></select></td><td><Select name="S8Select" onChange=""></select></td><td><Select name="S9Select" onChange=""></select></td></tr>
   <tr><td>Short<td></tr><td><Select name="TeamArrayx" onChange=""></select></td><td><Select name="SS2Select" onChange=""></select></td><td><Select name="SS3Select" onChange=""></select></td><td><Select name="SS4Select" onChange=""></select></td><td><Select name="SS5Select" onChange=""></select></td><td><Select name="SS6Select" onChange=""></select></td><td><Select name="SS7Select" onChange=""></select></td><td><Select name="SS8Select" onChange=""></select></td><td><Select name="SS9Select" onChange=""></select></td></tr>
   <tr><td>Third<td></tr><td><Select name="TeamArrayx" onChange=""></select></td><td><Select name="T2Select" onChange=""></select></td><td><Select name="T3Select" onChange=""></select></td><td><Select name="T4Select" onChange=""></select></td><td><Select name="T5Select" onChange=""></select></td><td><Select name="T6Select" onChange=""></select></td><td><Select name="T7Select" onChange=""></select></td><td><Select name="T8Select" onChange=""></select></td><td><Select name="T9Select" onChange=""></select></td></tr>
   <tr><td>Left<td></tr><td><Select name="TeamArrayx" onChange=""></select></td><td><Select name="L2Select" onChange=""></select></td><td><Select name="L3Select" onChange=""></select></td><td><Select name="L4Select" onChange=""></select></td><td><Select name="L5Select" onChange=""></select></td><td><Select name="L6Select" onChange=""></select></td><td><Select name="L7Select" onChange=""></select></td><td><Select name="L8Select" onChange=""></select></td><td><Select name="L9Select" onChange=""></select></td></tr>
   <tr><td>Center<td></tr><td><Select name="TeamArrayx" onChange=""></select></td><td><Select name="CF2Select" onChange=""></select></td><td><Select name="CF3Select" onChange=""></select></td><td><Select name="CF4Select" onChange=""></select></td><td><Select name="CF5Select" onChange=""></select></td><td><Select name="CF6Select" onChange=""></select></td><td><Select name="CF7Select" onChange=""></select></td><td><Select name="CF8Select" onChange=""></select></td><td><Select name="CF9Select" onChange=""></select></td></tr>
   <tr><td>Right<td></tr><td><Select name="TeamArrayx" onChange=""></select></td><td><Select name="R2Select" onChange=""></select></td><td><Select name="R3Select" onChange=""></select></td><td><Select name="R4Select" onChange=""></select></td><td><Select name="R5Select" onChange=""></select></td><td><Select name="R6Select" onChange=""></select></td><td><Select name="R7Select" onChange=""></select></td><td><Select name="R8Select" onChange=""></select></td><td><Select name="R9Select" onChange=""></select></td></tr>
</table>
<br><br>
<table Width="30%" Border="1">
<th>Batting Order</th>
   <tr><td>.</td><td><Select name="TeamArraya" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArrayb" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArrayc" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArrayd" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArraye" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArrayf" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArrayg" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArrayh" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArrayi" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArrayj" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArrayk" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArrayl" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArraym" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="TeamArrayn" onChange=""></select></td></tr>
   </table>
<br><br>
<table Width="90%">
   <tr><td><input type="button" value="Write Game" name="writeButton" onClick="WriteHTML">
   <tr><td></td><td></td><td></td><td><input type="button" value="Close" name="closeButton" onClick="CloseWindow"></td>
</table>

</body>

</html>

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

(in reply to dm_4ever)

Post #: 3

RE: HTA + Array + reuse Array - 5/15/2007 8:23:19 AM

dm_4ever

Posts: 2726
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

Line 223 on my end isn't anything relating to TeamSelect.

You function ListofPlayers lists the players in the TeamSelect drop down correct?

Are you trying to get those same names to apear it the other drop down lists?

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mcds99)

Post #: 4

RE: HTA + Array + reuse Array - 5/15/2007 8:34:46 AM

mcds99

Posts: 441
Score: 4
Joined: 2/28/2006
Status: offline

The Function Team is triggered by OnChange=Team" the file list of file names generated by Function Window_onload
Function Team does a Call to ListofPlayers and populates the HTML Select name="TeamArray"

If I use name="TeamArray" more then once it give the error...Object doesn't support this property or method: 'TeamArray.Add'

It's like it's trying to add to use TeamArray.Add as the name of the array.

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

(in reply to dm_4ever)

Post #: 5

RE: HTA + Array + reuse Array - 5/15/2007 9:58:43 AM

dm_4ever

Posts: 2726
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

Each select object must have a unique name.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mcds99)

Post #: 6

RE: HTA + Array + reuse Array - 5/16/2007 3:39:32 AM

mcds99

Posts: 441
Score: 4
Joined: 2/28/2006
Status: offline

Now each Select object has a unique name.

Is it possible to load the array in to each unique name?

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

(in reply to dm_4ever)

Post #: 7

RE: HTA + Array + reuse Array - 5/16/2007 5:34:17 AM

dm_4ever

Posts: 2726
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

Can you post what you have now? Oh, and should all the Selects have the same info?

< Message edited by dm_4ever -- 5/16/2007 5:37:58 AM >

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mcds99)

Post #: 8

RE: HTA + Array + reuse Array - 5/16/2007 5:48:46 AM

mcds99

Posts: 441
Score: 4
Joined: 2/28/2006
Status: offline

Yes each select should have the same information the table of player name generated.
I put another dent in my desk... ;-0

Don't know why I can't see this one... All this script will do is generate where the players will play and what the batting order is.
I haven't even started the hard script for batting stats.

<head><title>Game Setup</Title>
<HTA:Application
    Application="Game Setup"
    Scoll="No"
    Singleinstance="Yes"
    ShowInTaskbar="No"
    Caption="No"
>
</Head>

DIM FileName
DIM oFile
DIM MyTeam

Function window_onload
'### Run when HTA starts,gets list of files removes path, loads file names in to Array
Set fso = CreateObject("Scripting.FileSystemObject")
set dir = fso.GetFolder("C:\BBM\txtData\")
For Each xFile in dir.files
 FileArray = split(xFile, "C:\BBM\txtData\")
   SET objPath = New RegExp  
       objPath.Pattern = "[C:\\BBM\\txtData\\]"
   For Each yFile in FileArray
     If objPath.Test(yFile) Then
       zFile = yFile
       bFile = split(zFile, ".txt")
       aFile = bFile(0)
       SET objOption = window.document.createElement("option")
           objoption.text = aFile
         TeamSelect.Add(objOption)
      End If
   Next
Next
END Function

Sub CloseWindow
'### Closes the Application
   self.close
End Sub

Function Team
'### Drop down list select loads variables.
DIM i
 For i = 0 To teamselect.options.length - 1
   If teamselect.options(i).selected Then 
     nFile = teamselect.options(i).text
     FileName = "C:\BBM\txtData\" & nFile & ".txt"
   End If
 Next
   MTeam = split(nFile, ".txt")
     MyTeam = MTeam(0)
 call ListofPlayers
End Function

Function WriteHTML
'### Writes the report (Line up and batting order).
 Call CreateFile
 Call WriteHeader
 Call WriteMiddle
 Call WriteEnd
 Call DisplayHTML
End Function

Function WriteMiddle
'### Writes the Linup
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
 Set fSo2 = CreateObject("Scripting.FileSystemObject")
 Set wrFile = fSo2.OpenTextFile(oFile, ForAppending)
   wrFile.writeline "<table width=""95%"" border=""1"">"
   wrFile.writeline "<tr><td><b>Positions</b></td><td>1st</td><td>2nd</td><td>3rd</td><td>4th</td><td>5th</td><td>6th</td><td>7th</td><td>8th</td><td>9th</td></tr>"
   wrFile.writeline "<tr><td>Pitcher</td><td></td></tr>"
   wrFile.writeline "<tr><td>Catcher</td></tr>"
   wrFile.writeline "<tr><td>First</td></tr>"
   wrFile.writeline "<tr><td>Second</td></tr>"
   wrFile.writeline "<tr><td>Short</td></tr>"
   wrFile.writeline "<tr><td>Third</td></tr>"
   wrFile.writeline "<tr><td>Left</td></tr>"
   wrFile.writeline "<tr><td>Center</td></tr>"
   wrFile.writeline "<tr><td>Right</td></tr>"
   wrFile.writeline "</table>"
   wrFile.writeline "<br>"
   WrFile.Close
End Function

Function WriteEnd
'### Writes the Score Sheet and Batting order
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
 Set fSo2 = CreateObject("Scripting.FileSystemObject")
 Set wrFile = fSo2.OpenTextFile(oFile, ForAppending)
   wrFile.writeline "<table width=""95%"" border=""1"">"
   wrFile.writeline "<tr><td><b>Score</b></td><td>1st</td><td>2nd</td><td>3rd</td><td>4th</td><td>5th</td><td>6th</td><td>7th</td><td>8th</td><td>9th</td></tr>"
   wrFile.writeline "<tr><td>" & aFile & "</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>" & game.value & "</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td></tr>"
   wrFile.writeline "</table>"
   wrFile.writeline "<br>"
   wrFile.writeline "<table width=""30%"" border=""1"">"
   wrFile.writeline "<th> Batting Order </th>"
   wrFile.writeline "<tr><td width=""20%"">1</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>2</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>3</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>4</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>5</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>6</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>7</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>8</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>9</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>10</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>11</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>12</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>12</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>12</td><td>.</td></tr>"
   wrFile.writeline "</table>"
   wrFile.writeline "</body>"
   wrFile.writeline "</html>"
   wrFile.Close
End Function

Function ListofPlayers
'Creates the Array of player names.
ipfile = FileName

Const ForReading = 1
 Const ForWriting = 2
 Const ForAppending = 8
   Set fSo4 = CreateObject("Scripting.FileSystemObject")
   Set rdFile = fSo4.OpenTextFile(ipFile)
     do while Not rdFile.AtEndofStream
       aPlayer = rdFile.readline()
       SET objPlayer = window.document.createElement("option")
           objPlayer.text = aPlayer
           P1.Add(ObjPlayer)
     Loop
End Function

</Script>

<body Style="font:10 pt Arial; color:White; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#616d7e', EndColorStr='#717d7d')">
<table Width="90%">
   <th align="center">Game Setup</th>
   <tr><td>Select Team: </td><td><Select name="TeamSelect" onChange="Team"></select></td><td>Month</td><td>Day</td><td>Year</td>
   <tr><td> Enter Opposing Team & Date: </td><td><input type="text" name="Game" size="21" maxlength="21"></td><td><input type="text" name="aMonth" size="2" maxlength="2"></td><td><input type="text" name="aDay" size="2" maxlength="2"></td><td><input type="text" name="aYear" size="4" maxlength="4"></td>
   <tr><td><input type="button" value="Close" name="closeButton" onClick="CloseWindow"></td></tr>
   <br>
   </table>
<br><br>
<table Width="90%" border="1">
<th align="center">Positions</th>
   <tr><td></td><td><b>Inning</b></td><td>First</td><td>Second</td><td>Third</td><td>Fourth</td><td>Fifth</td><td>Sixth</td><td>Seventh</td><td>Eighth</td><td>Ninth</td></tr>
   <tr><td><b>Position</b></td><td></td</tr>
   <tr><td>Pitcher<td></tr><td><Select name="P1" onChange=""></select></td><td><Select name="P2" onChange=""></select></td><td><Select name="P3" onChange=""></select></td><td><Select name="P4" onChange=""></select></td><td><Select name="P5" onChange=""></select></td><td><Select name="P6" onChange=""></select></td><td><Select name="P7" onChange=""></select></td><td><Select name="P8" onChange=""></select></td><td><Select name="P9" onChange=""></select></td></tr>
   <tr><td>Catcher<td></tr><td><Select name="C1" onChange=""></select></td><td><Select name="C2" onChange=""></select></td><td><Select name="C3" onChange=""></select></td><td><Select name="C4" onChange=""></select></td><td><Select name="C5" onChange=""></select></td><td><Select name="C6" onChange=""></select></td><td><Select name="C7" onChange=""></select></td><td><Select name="C8" onChange=""></select></td><td><Select name="C9" onChange=""></select></td></tr>
   <tr><td>First<td></tr><td><Select name="F1" onChange=""></select></td><td><Select name="F2" onChange=""></select></td><td><Select name="F3" onChange=""></select></td><td><Select name="F4" onChange=""></select></td><td><Select name="F5" onChange=""></select></td><td><Select name="F6" onChange=""></select></td><td><Select name="F7" onChange=""></select></td><td><Select name="F8" onChange=""></select></td><td><Select name="F9" onChange=""></select></td></tr>
   <tr><td>Second<td></tr><td><Select name="S1" onChange=""></select></td><td><Select name="S2" onChange=""></select></td><td><Select name="S3" onChange=""></select></td><td><Select name="S4" onChange=""></select></td><td><Select name="S5" onChange=""></select></td><td><Select name="S6" onChange=""></select></td><td><Select name="S7" onChange=""></select></td><td><Select name="S8" onChange=""></select></td><td><Select name="S9" onChange=""></select></td></tr>
   <tr><td>Short<td></tr><td><Select name="SS1" onChange=""></select></td><td><Select name="SS2" onChange=""></select></td><td><Select name="SS3" onChange=""></select></td><td><Select name="SS4" onChange=""></select></td><td><Select name="SS5" onChange=""></select></td><td><Select name="SS6" onChange=""></select></td><td><Select name="SS7" onChange=""></select></td><td><Select name="SS8" onChange=""></select></td><td><Select name="SS9" onChange=""></select></td></tr>
   <tr><td>Third<td></tr><td><Select name="T1" onChange=""></select></td><td><Select name="T2" onChange=""></select></td><td><Select name="T3" onChange=""></select></td><td><Select name="T4" onChange=""></select></td><td><Select name="T5" onChange=""></select></td><td><Select name="T6" onChange=""></select></td><td><Select name="T7" onChange=""></select></td><td><Select name="T8" onChange=""></select></td><td><Select name="T9" onChange=""></select></td></tr>
   <tr><td>Left<td></tr><td><Select name="L1" onChange=""></select></td><td><Select name="L2" onChange=""></select></td><td><Select name="L3" onChange=""></select></td><td><Select name="L4" onChange=""></select></td><td><Select name="L5" onChange=""></select></td><td><Select name="L6" onChange=""></select></td><td><Select name="L7" onChange=""></select></td><td><Select name="L8" onChange=""></select></td><td><Select name="L9" onChange=""></select></td></tr>
   <tr><td>Center<td></tr><td><Select name="CF1" onChange=""></select></td><td><Select name="CF2" onChange=""></select></td><td><Select name="CF3" onChange=""></select></td><td><Select name="CF4" onChange=""></select></td><td><Select name="CF5" onChange=""></select></td><td><Select name="CF6" onChange=""></select></td><td><Select name="CF7" onChange=""></select></td><td><Select name="CF8" onChange=""></select></td><td><Select name="CF9" onChange=""></select></td></tr>
   <tr><td>Right<td></tr><td><Select name="R1" onChange=""></select></td><td><Select name="R2" onChange=""></select></td><td><Select name="R3" onChange=""></select></td><td><Select name="R4" onChange=""></select></td><td><Select name="R5" onChange=""></select></td><td><Select name="R6" onChange=""></select></td><td><Select name="R7" onChange=""></select></td><td><Select name="R8" onChange=""></select></td><td><Select name="R9" onChange=""></select></td></tr>
</table>
<br><br>
<table Width="30%" Border="1">
<th>Batting Order</th>
   <tr><td>.</td><td><Select name="AB1" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB2" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB3" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB4" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB5" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB6" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB7" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB8" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB9" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB10" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB11" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB12" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB13" onChange=""></select></td></tr>
   <tr><td>.</td><td><Select name="AB14" onChange=""></select></td></tr>
   </table>
<br><br>
<table Width="90%">
   <tr><td><input type="button" value="Write Game" name="writeButton" onClick="WriteHTML">
   <tr><td></td><td></td><td></td><td><input type="button" value="Close" name="closeButton" onClick="CloseWindow"></td>
</table>

</body>

</html>

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

(in reply to dm_4ever)

Post #: 9

RE: HTA + Array + reuse Array - 5/17/2007 1:51:15 PM

dm_4ever

Posts: 2726
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

See if this works for you. It should fill in each drop down with the same values. The way it was accomplished was by using getElementsByTagName to return a collection of all the Select objects and recurse through them adding the values to each. You will see it used in the ListofPlayers function.

A few other changes where made such as moving your FSO constants to the top so it is only used once and replacing the paths to the folders with variables to easily update.

P.S. That table must be very sturdy with the many dents you seem to put into it.

<html>
<head><title>Game Setup</Title>
<HTA:Application
   applicationname="Game Setup"
   scroll="no"
   Singleinstance="Yes"
   ShowInTaskbar="No"
   Caption="No"
   windowstate="normal"
>
</Head>

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const strFolderPath = "C:\BBM\txtData\"
Const strHTMLFPath = "C:\BBM\htmData\"

Dim FileName
Dim oFile
Dim MyTeam

Function window_onload
   '### Run when HTA starts,gets list of files removes path, loads file names in to Array
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set dir = fso.GetFolder(strFolderPath)
   For Each xFile in dir.files
       FileArray = split(xFile, strFolderPath)
       Set objPath = New RegExp  
       objPath.Pattern = "[" & Replace(strFolderPath, "\", "\\") & "]"
       For Each yFile in FileArray
           If objPath.Test(yFile) Then
               zFile = yFile
               bFile = split(zFile, ".txt")
               aFile = bFile(0)
               Set objOption = window.document.createElement("option")
               objoption.text = aFile
               objOption.value = aFile
               TeamSelect.Add(objOption)
           End If
       Next
   Next
   Team ' do initial call to populate page
END Function

Sub CloseWindow
'### Closes the Application
  self.close
End Sub

Function Team
'### Drop down list select loads variables.
   nFile = teamselect.value
   FileName = strFolderPath & nFile & ".txt"
   MTeam = split(nFile, ".txt")
   MyTeam = MTeam(0)
   call ListofPlayers
End Function

Function WriteHTML
   '### Writes the report (Line up and batting order).
   Call CreateFile
   Call WriteHeader
   Call WriteMiddle
   Call WriteEnd
   Call DisplayHTML
End Function

Function CreateFile
   '### Creates the HTML file for the report
   oFile = (strHTMLFPath & game.value &"-"& aMonth.value & aDay.value & aYear.value & ".htm")
   Set fSo1 = CreateObject("Scripting.FileSystemObject")
   Set wrFile = fSo1.CreateTextFile(oFile,true)
   wrFile.Close
End Function

Function WriteHeader
   '### Writes the header information to the HTML file.
   Set fSo2 = CreateObject("Scripting.FileSystemObject")
   Set wrFile = fSo2.OpenTextFile(oFile, ForAppending)
   wrFile.writeline "<html><body><title>Game Setup</title>"
   wrFile.writeline "<table width=""95%"" border=""1"">"
   wrFile.writeline "<tr><td><center>" & "Opposing Team: " & "<b>" & game.value & "</b>" & " Date: <b>" & aMonth.Value & "-" & aDay.value & "-" & aYear.value &"</b></center></td>"
   wrFile.writeline "</table>"
   wrFile.writeline "<br>"
   wrFile.Close
End Function

Function WriteMiddle
   '### Writes the Linup
   Set fSo2 = CreateObject("Scripting.FileSystemObject")
   Set wrFile = fSo2.OpenTextFile(oFile, ForAppending)
   wrFile.writeline "<table width=""95%"" border=""1"">"
   wrFile.writeline "<tr><td><b>Positions</b></td><td>1st</td><td>2nd</td><td>3rd</td><td>4th</td><td>5th</td><td>6th</td><td>7th</td><td>8th</td><td>9th</td></tr>"
   wrFile.writeline "<tr><td>Pitcher</td><td></td></tr>"
   wrFile.writeline "<tr><td>Catcher</td></tr>"
   wrFile.writeline "<tr><td>First</td></tr>"
   wrFile.writeline "<tr><td>Second</td></tr>"
   wrFile.writeline "<tr><td>Short</td></tr>"
   wrFile.writeline "<tr><td>Third</td></tr>"
   wrFile.writeline "<tr><td>Left</td></tr>"
   wrFile.writeline "<tr><td>Center</td></tr>"
   wrFile.writeline "<tr><td>Right</td></tr>"
   wrFile.writeline "</table>"
   wrFile.writeline "<br>"
   WrFile.Close
End Function

Function WriteEnd
   '### Writes the Score Sheet and Batting order
   Set fSo2 = CreateObject("Scripting.FileSystemObject")
   Set wrFile = fSo2.OpenTextFile(oFile, ForAppending)
   wrFile.writeline "<table width=""95%"" border=""1"">"
   wrFile.writeline "<tr><td><b>Score</b></td><td>1st</td><td>2nd</td><td>3rd</td><td>4th</td><td>5th</td><td>6th</td><td>7th</td><td>8th</td><td>9th</td></tr>"
   wrFile.writeline "<tr><td>" & aFile & "</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>" & game.value & "</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td></tr>"
   wrFile.writeline "</table>"
   wrFile.writeline "<br>"
   wrFile.writeline "<table width=""30%"" border=""1"">"
   wrFile.writeline "<th> Batting Order </th>"
   wrFile.writeline "<tr><td width=""20%"">1</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>2</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>3</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>4</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>5</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>6</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>7</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>8</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>9</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>10</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>11</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>12</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>12</td><td>.</td></tr>"
   wrFile.writeline "<tr><td>12</td><td>.</td></tr>"
   wrFile.writeline "</table>"
   wrFile.writeline "</body>"
   wrFile.writeline "</html>"
   wrFile.Close
End Function

Function DisplayHTML
   '### Displays the Report in the browser.
   dispFile = oFile
   Set objExplorer = CreateObject("InternetExplorer.Application")
   objExplorer.Visible = 1
   objExplorer.Navigate "file://" & dispfile
End Function

Function ListofPlayers
   Dim colSelects : Set colSelects = window.document.getElementsByTagName("Select")
   Dim objSelect
   
   For Each objSelect In colSelects
       If Not objSelect.Name = "TeamSelect" Then
           objSelect.innerHTML = ""
       End If
   Next
   'Creates the Array of player names.
   ipfile = FileName

Set fSo4 = CreateObject("Scripting.FileSystemObject")
   Set rdFile = fSo4.OpenTextFile(ipFile)
   Do while Not rdFile.AtEndofStream
       aPlayer = rdFile.readline()
       For Each objSelect In colSelects
           If Not objSelect.Name = "TeamSelect" Then
               Set objPlayer = window.document.createElement("option")
               objPlayer.text = aPlayer
               objPlayer.value = aPlayer
               objSelect.Add(ObjPlayer)
           End If
       Next
   Loop
End Function

</Script>

<body Style="font:10 pt Arial; color:White; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#616d7e', EndColorStr='#717d7d')">
<table Width="90%">
  <th align="center">Game Setup</th>
  <tr><td>Select Team: </td><td><Select name="TeamSelect" onChange="Team"></select></td><td>Month</td><td>Day</td><td>Year</td>
  <tr><td> Enter Opposing Team & Date: </td><td><input type="text" name="Game" size="21" maxlength="21"></td><td><input type="text" name="aMonth" size="2" maxlength="2"></td><td><input type="text" name="aDay" size="2" maxlength="2"></td><td><input type="text" name="aYear" size="4" maxlength="4"></td>
  <tr><td><input type="button" value="Close" name="closeButton" onClick="CloseWindow"></td></tr>
  <br>
  </table>
<br><br>
<table Width="90%" border="1">
<th align="center">Positions</th>
  <tr><td></td><td><b>Inning</b></td><td>First</td><td>Second</td><td>Third</td><td>Fourth</td><td>Fifth</td><td>Sixth</td><td>Seventh</td><td>Eighth</td><td>Ninth</td></tr>
  <tr><td><b>Position</b></td><td></td</tr>
  <tr><td>Pitcher<td></tr><td><Select name="P1" onChange=""></select></td><td><Select name="P2" onChange=""></select></td><td><Select name="P3" onChange=""></select></td><td><Select name="P4" onChange=""></select></td><td><Select name="P5" onChange=""></select></td><td><Select name="P6" onChange=""></select></td><td><Select name="P7" onChange=""></select></td><td><Select name="P8" onChange=""></select></td><td><Select name="P9" onChange=""></select></td></tr>
  <tr><td>Catcher<td></tr><td><Select name="C1" onChange=""></select></td><td><Select name="C2" onChange=""></select></td><td><Select name="C3" onChange=""></select></td><td><Select name="C4" onChange=""></select></td><td><Select name="C5" onChange=""></select></td><td><Select name="C6" onChange=""></select></td><td><Select name="C7" onChange=""></select></td><td><Select name="C8" onChange=""></select></td><td><Select name="C9" onChange=""></select></td></tr>
  <tr><td>First<td></tr><td><Select name="F1" onChange=""></select></td><td><Select name="F2" onChange=""></select></td><td><Select name="F3" onChange=""></select></td><td><Select name="F4" onChange=""></select></td><td><Select name="F5" onChange=""></select></td><td><Select name="F6" onChange=""></select></td><td><Select name="F7" onChange=""></select></td><td><Select name="F8" onChange=""></select></td><td><Select name="F9" onChange=""></select></td></tr>
  <tr><td>Second<td></tr><td><Select name="S1" onChange=""></select></td><td><Select name="S2" onChange=""></select></td><td><Select name="S3" onChange=""></select></td><td><Select name="S4" onChange=""></select></td><td><Select name="S5" onChange=""></select></td><td><Select name="S6" onChange=""></select></td><td><Select name="S7" onChange=""></select></td><td><Select name="S8" onChange=""></select></td><td><Select name="S9" onChange=""></select></td></tr>
  <tr><td>Short<td></tr><td><Select name="SS1" onChange=""></select></td><td><Select name="SS2" onChange=""></select></td><td><Select name="SS3" onChange=""></select></td><td><Select name="SS4" onChange=""></select></td><td><Select name="SS5" onChange=""></select></td><td><Select name="SS6" onChange=""></select></td><td><Select name="SS7" onChange=""></select></td><td><Select name="SS8" onChange=""></select></td><td><Select name="SS9" onChange=""></select></td></tr>
  <tr><td>Third<td></tr><td><Select name="T1" onChange=""></select></td><td><Select name="T2" onChange=""></select></td><td><Select name="T3" onChange=""></select></td><td><Select name="T4" onChange=""></select></td><td><Select name="T5" onChange=""></select></td><td><Select name="T6" onChange=""></select></td><td><Select name="T7" onChange=""></select></td><td><Select name="T8" onChange=""></select></td><td><Select name="T9" onChange=""></select></td></tr>
  <tr><td>Left<td></tr><td><Select name="L1" onChange=""></select></td><td><Select name="L2" onChange=""></select></td><td><Select name="L3" onChange=""></select></td><td><Select name="L4" onChange=""></select></td><td><Select name="L5" onChange=""></select></td><td><Select name="L6" onChange=""></select></td><td><Select name="L7" onChange=""></select></td><td><Select name="L8" onChange=""></select></td><td><Select name="L9" onChange=""></select></td></tr>
  <tr><td>Center<td></tr><td><Select name="CF1" onChange=""></select></td><td><Select name="CF2" onChange=""></select></td><td><Select name="CF3" onChange=""></select></td><td><Select name="CF4" onChange=""></select></td><td><Select name="CF5" onChange=""></select></td><td><Select name="CF6" onChange=""></select></td><td><Select name="CF7" onChange=""></select></td><td><Select name="CF8" onChange=""></select></td><td><Select name="CF9" onChange=""></select></td></tr>
  <tr><td>Right<td></tr><td><Select name="R1" onChange=""></select></td><td><Select name="R2" onChange=""></select></td><td><Select name="R3" onChange=""></select></td><td><Select name="R4" onChange=""></select></td><td><Select name="R5" onChange=""></select></td><td><Select name="R6" onChange=""></select></td><td><Select name="R7" onChange=""></select></td><td><Select name="R8" onChange=""></select></td><td><Select name="R9" onChange=""></select></td></tr>
</table>
<br><br>
<table Width="30%" Border="1">
<th>Batting Order</th>
  <tr><td>.</td><td><Select name="AB1" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB2" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB3" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB4" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB5" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB6" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB7" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB8" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB9" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB10" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB11" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB12" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB13" onChange=""></select></td></tr>
  <tr><td>.</td><td><Select name="AB14" onChange=""></select></td></tr>
  </table>
<br><br>
<table Width="90%">
  <tr><td><input type="button" value="Write Game" name="writeButton" onClick="WriteHTML">
  <tr><td></td><td></td><td></td><td><input type="button" value="Close" name="closeButton" onClick="CloseWindow"></td>
</table>
</body>
</html>