(AutoIt) SFTP Read Text File

Demonstrates how to open a text file on the SSH server and read text.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oSftp = ObjCreate("Chilkat.SFtp")

; Set some timeouts, in milliseconds:
$oSftp.ConnectTimeoutMs = 5000
$oSftp.IdleTimeoutMs = 15000

; Connect to the SSH server.  
; The standard SSH port = 22
; The hostname may be a hostname or IP address.
Local $sHostname = "sftp.example.com"
Local $iPort = 22
Local $bSuccess = $oSftp.Connect($sHostname,$iPort)
If ($bSuccess <> True) Then
    ConsoleWrite($oSftp.LastErrorText & @CRLF)
    Exit
EndIf

; Authenticate with the SSH server.  Chilkat SFTP supports
; both password-based authenication as well as public-key
; authentication.  This example uses password authenication.
$bSuccess = $oSftp.AuthenticatePw("myLogin","myPassword")
If ($bSuccess <> True) Then
    ConsoleWrite($oSftp.LastErrorText & @CRLF)
    Exit
EndIf

; After authenticating, the SFTP subsystem must be initialized:
$bSuccess = $oSftp.InitializeSftp()
If ($bSuccess <> True) Then
    ConsoleWrite($oSftp.LastErrorText & @CRLF)
    Exit
EndIf

; Open a file for reading.
Local $sHandle
$sHandle = $oSftp.OpenFile("myTest.txt","readOnly","openExisting")
If ($oSftp.LastMethodSuccess <> True) Then
    ConsoleWrite($oSftp.LastErrorText & @CRLF)
    Exit
EndIf

; Assume the file we are reading contains the following text:
; abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ
; (in ANSI format -- i.e. one byte per char).

; Read 26 bytes:
Local $sText
$sText = $oSftp.ReadFileText($sHandle,26,"ansi")
If ($oSftp.LastMethodSuccess <> True) Then
    ConsoleWrite($oSftp.LastErrorText & @CRLF)
    Exit
EndIf

; Should print "abcdefghijklmnopqrstuvwxyz"
ConsoleWrite($sText & @CRLF)

; Read the next 10 bytes.
$sText = $oSftp.ReadFileText($sHandle,10,"ansi")
If ($oSftp.LastMethodSuccess <> True) Then
    ConsoleWrite($oSftp.LastErrorText & @CRLF)
    Exit
EndIf

; Should print "1234567890"
ConsoleWrite($sText & @CRLF)

; Read the next 26 bytes.
$sText = $oSftp.ReadFileText($sHandle,26,"ansi")
If ($oSftp.LastMethodSuccess <> True) Then
    ConsoleWrite($oSftp.LastErrorText & @CRLF)
    Exit
EndIf

; Should print "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
ConsoleWrite($sText & @CRLF)

; Close the file.
$bSuccess = $oSftp.CloseHandle($sHandle)
If ($bSuccess <> True) Then
    ConsoleWrite($oSftp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Success." & @CRLF)