(25) : ==> Subscript used with non-Array variable ?

[n9mfk9]

Hi everyone herer is my code

This is the error i get (25) : ==> Subscript used with non-Array variable.:

$tag1[$a] = '%'& $aArray1[$a]&'%'

how can i fix this Thanks

expandcollapse popup

#include <String.au3>
#include <array.au3>
Dim $tag1
Dim $tagname3

$file = FileOpen("tagslist.txt", 0)
$fileout = FileOpen("myphp.txt", 1)
;Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
   
    
    $aArray1 = _StringBetween($line, '%', '%')
    If Not @error Then
   ;  _ArrayDisplay($aArray1, 'Default Search')
    ;MsgBox(0,$aArray1)
        For $a = 0 To UBound($aArray1) - 1
            $tag1[$a] =  '%'& $aArray1[$a]&'%'
            $tagname3[$a] = $aArray1[$a]
            $tagname3[$a] = StringReplace($tagname3[$a],'-','_')
            $tagname3[$a] = StringReplace($tagname3[$a],'<','LT')
            $tagname3[$a] = StringReplace($tagname3[$a],'>','GT')
            $tagname3[$a] = StringReplace($tagname3[$a],'=','')
            $tagname3[$a] = StringReplace($tagname3[$a],'/','_')
            $tagname3[$a] = StringReplace($tagname3[$a],',','CM')
            
            FileWrite($fileout, $tag1[$a])
        ;MsgBox(0,'',$aArray1[$a])
        ;$aArray1[$a] = "" & $aArray1[$a] & "%"
        Next
      ; $a = @CRLF & "|"
       ;$output = "|%" & _ArrayToString($aArray1, @CRLF & "|%")
       ;FileWrite($fileout, $output & @CRLF)
    EndIf

WEnd    

FileClose($fileout)
FileClose($file)

[/dev/null]

how can i fix this Thanks

without the file tagslist.txt, nobody can tell you!

Cheers

Kurt

[n9mfk9]

Sorry i for got it Beau

tagslist.txt

[slaughter]

expandcollapse popup

#include <String.au3>
#include <array.au3>
Dim $tag1[1]
Dim $tagname3[1]

$file = FileOpen("tagslist.txt", 0)
$fileout = FileOpen("myphp.txt", 1)
;Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
  
    
    $aArray1 = _StringBetween($line, '%', '%')
    If Not @error Then
_ArrayDisplay($aArray1, 'Default Search')
   ;MsgBox(0,$aArray1)
        For $a = 0 To UBound($aArray1) - 1
            ReDim $tag1[UBound($aArray1)]
            ReDim $tagname3[UBound($aArray1)]
            $tag1[$a] =  '%'& $aArray1[$a]&'%'
            $tagname3[$a] = $aArray1[$a]
            $tagname3[$a] = StringReplace($tagname3[$a],'-','_')
            $tagname3[$a] = StringReplace($tagname3[$a],'<','LT')
            $tagname3[$a] = StringReplace($tagname3[$a],'>','GT')
            $tagname3[$a] = StringReplace($tagname3[$a],'=','')
            $tagname3[$a] = StringReplace($tagname3[$a],'/','_')
            $tagname3[$a] = StringReplace($tagname3[$a],',','CM')
            
            FileWrite($fileout, $tag1[$a])
       ;MsgBox(0,'',$aArray1[$a])
       ;$aArray1[$a] = "" & $aArray1[$a] & "%"
        Next
     ; $a = @CRLF & "|"
      ;$output = "|%" & _ArrayToString($aArray1, @CRLF & "|%")
      ;FileWrite($fileout, $output & @CRLF)
    EndIf

WEnd    

FileClose($fileout)
FileClose($file)

problems:

1 variables was not set as array

2 Problem with array size Just redim it to a new size each time if you don't know what actual size is gonna be.

You are welcome