UBound Loops

[sliceofpie 0]

Hello,

I'm trying to write the following variables to 3 separate text files. I got the first one down but not sure how to make it loop again for the next 2 files.

Global $var[9][1]
$var[0][0] = "Arizona-Phoenix"
$var[1][0] = "Arizona-Scottsdale"
$var[2][0] = "Arizona-Tempe"
$var[3][0] = "California-San-Francisco"
$var[4][0] = "California-Los-Angeles"
$var[5][0] = "California-Sacramento"
$var[6][0] = "California-San-Diego"
$var[7][0] = "Colorado-Denver"
$var[8][0] = "Colorado-Fort-Collins"

$Dissect = StringSplit($var [0][0], '-', 1)
Local $First_State = $Dissect[1]
$State = $First_State
msgbox(0,"First State",$First_State)
 
 If $State = $First_State Then
  If FileExists("Cities in " & $State & ".txt") Then FileDelete("Cities in " & $State & ".txt")
  $Open_Text = FileOpen("Cities in " & $State & ".txt", 1)
  FileWrite($Open_Text, "Cities I've visited in " & $State & @CRLF)
  
  For $i = 0 To UBound($var) -1
   $Dissect = StringSplit($var [$i][0], '-', 1)
   If $State = $Dissect[1] Then FileWrite($Open_Text, $var [$i][0] & @CRLF)
   msgbox(0,"Current State",$State)

  Next
   FileWrite($Open_Text, "(These trips were all part of the ASCC Youth Foundation)" & @CRLF)
   FileClose($Open_Text) 
 EndIf


 ;If $State <> $First_State Then $State = $First_State

[JoHanatCent 13]

I'm trying to write the following variables to 3 separate text files. I got the first one down but not sure how to make it loop again for the next 2 files

Yes, Never got past the first state.

Try:

expandcollapse popup

#include <Array.au3>

Global $var[9][1]
$var[0][0] = "Arizona-Phoenix"
$var[1][0] = "Arizona-Scottsdale"
$var[2][0] = "Arizona-Tempe"
$var[3][0] = "California-San-Francisco"
$var[4][0] = "California-Los-Angeles"
$var[5][0] = "California-Sacramento"
$var[6][0] = "California-San-Diego"
$var[7][0] = "Colorado-Denver"
$var[8][0] = "Colorado-Fort-Collins"
Global $State[UBound($var)]
$1 = -1


Do
    $1 += 1
    $Dissect = StringSplit($var[$1][0], '-', 1)
    Local $First_State = $Dissect[1]
    $State[$1] = $First_State
    Until $1 = UBound($var) - 1
$states = _ArrayUnique($State)

_ArrayDisplay($states);Got rid of duplicates

For $1 = 1 To $states[0]

    If FileExists("Cities in " & $states[$1] & ".txt") Then FileDelete("Cities in " & $states[$1] & ".txt")
    $Open_Text = FileOpen("Cities in " & $states[$1] & ".txt", 1)
    If $Open_Text = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    EndIf


    FileWrite($Open_Text, "Cities I've visited in " & $states[$1] & @CRLF)

    For $i = 0 To UBound($var) - 1
        $Dissect = StringSplit($var[$i][0], '-', 1)
        If $states[$1] = $Dissect[1] Then FileWrite($Open_Text, $var[$i][0] & @CRLF)
        MsgBox(0, "Current State", $states[$1])

    Next
    FileWrite($Open_Text, "(These trips were all part of the ASCC Youth Foundation)" & @CRLF)
    FileClose($Open_Text)


Next
;If $State <> $First_State Then $State = $First_State

Edited February 22, 2011 by JoHanatCent

[sliceofpie 0]

Thanks JohanatCent!!

Edited February 23, 2011 by sliceofpie

[JoHanatCent 13]

Thanks JohanatCent!!

All my pleasure!