0

全て、

以下は私がAutoITで書いたコードです。 

    $fileToWrite = FileOpen("C:\output.txt", 1)

If FileExists("C:\test.csv") Then
    $fileHandle= FileOpen("test.csv", 0)
    If ($fileHandle = -1) Then
        MsgBox (0, "Error", "Error occured while reading the file")
        Exit
    Else
        While 1
            $currentLine = FileReadLine($fileHandle)
            If @error = -1 Then ExitLoop
            $days = StringSplit($currentLine, ",")
            FileWrite($fileToWrite,$days[2] & ", " & $days[9] & @CRLF)
            EndIf
        Wend
    EndIf
Else
    MsgBox (0, "Error", "Input file does not exist")
EndIf

FileClose($fileToWrite)
FileClose($fileHandle)

そして一連のエラー：

C:\ReadCSV.au3(14,4) : ERROR: missing Wend.
            EndIf
            ^
C:\ReadCSV.au3(9,3) : REF: missing Wend.
        While
        ^
C:\ReadCSV.au3(15,3) : ERROR: missing EndIf.
        Wend
        ^
C:\ReadCSV.au3(3,34) : REF: missing EndIf.
If FileExists("C:\test.csv") Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\ReadCSV.au3(15,3) : ERROR: syntax error
        Wend
        ^
C:\ReadCSV.au3 - 3 error(s), 0 warning(s)
>Exit code: 0    Time: 3.601

すべてのWhileループとIf条件に対してWendとEndIfがあるため、ここで問題を理解することはできません。ここで何かが足りませんか？

4

2 に答える 2

2

問題は、あなたがEndif前にいてWend、Ifあなたがそこにいるのですでに閉じられているということですExitLoop。

Endifしたがって、またはを削除するか、別の場所に配置しExitLoopます。

于 2010-10-29T04:49:13.010 に答える
2

ExitLoopの後にコマンドがあるのでthen、の必要はありませんEndIf。

（この行ではIf @error = -1 Then ExitLoop:)

次のいずれかを実行できます。

  1. を削除しますEndIf

    While 1
    $currentLine = FileReadLine($fileHandle)
    If @error = -1 Then ExitLoop
    $days = StringSplit($currentLine, ",")
    FileWrite($fileToWrite,$days[2] & ", " & $days[9] & @CRLF)
Wend

  2. ExitLoopを次の行に移動します。（これはあまり意味がありませんが、スクリプトは引き続き実行されます。）

    While 1
    $currentLine = FileReadLine($fileHandle)
    If @error = -1 Then
    ExitLoop
    $days = StringSplit($currentLine, ",")
    FileWrite($fileToWrite,$days[2] & ", " & $days[9] & @CRLF)
    EndIf
Wend

私は＃1で行きます。

于 2010-10-29T05:46:29.810 に答える