Read entire txt file & copy/paste

[augustspies]

Hi guys,

I found this script a couple days ago but don't remember the thread to reference it so I apologize in advance

This script reads 1 line @ a time and then copies it to the clipboard. Is it possible to take this script and make it so that it reads all the lines/entire content and then copies it to clipboard to be pasted somewhere? If so how could I do this?

Local Const $File = "D:\file.txt"

Global $Handle = FileOpen($File, 0)
If $Handle = -1 Then
    MsgBox(0x10, 'Error', 'Could not open the file:' & @LF & $File)
    Exit
EndIf

HotkeySet('^{RIGHT}', 'NextLine')
HotkeySet('{ESC}', 'Done')

NextLine()

While 1
    Sleep(0x7FFFFFFF)
WEnd

Func NextLine()
    Local $NextLine = FileReadLine($Handle)
    If @Error Then
        MsgBox(0x40, 'End of File', 'The end of the file has been reached.', 10)
        Done()
    EndIf
    ClipPut($NextLine)
    TrayTip('Copied to Clipboard', $NextLine & @LF & @LF & 'Ctrl+Right: Next line' & @LF & 'Esc: Quit', 5, 1)
EndFunc

Func Done()
    FileClose($Handle)
    Exit
EndFunc

[enaiman]

This puts the whole file content in the clipboard:

$File = "D:\file.txt"
ClipPut(FileRead($File))

[AutoBert]

Hi augustspies,

HotkeySet('^{RIGHT}', '_doCopy')
HotKeySet('{ESC}', 'Done')

While 1
    Sleep(500)
WEnd

Func _doCopy()
    $message = "File to Copy in ClipBoard"
    $var = FileOpenDialog($message, @AppDataCommonDir & "", "Textfiles (*.txt;*.ini))", 1 + 2)
    If @error Then Return ;

    $sText = FileRead($var)
    ClipPut($sText)
    TrayTip('File is copied to Clipboard', $var & @crlf & 'Esc: Quit' & @CRLF & 'Ctrl-Right: Copy another File', 5, 1)
EndFunc   ;==>_doCopy

Func Done()
    Exit
EndFunc   ;==>Done

mfg autoBert

[MattX]

This puts the whole file content in the clipboard:

$File = "D:\file.txt"
ClipPut(FileRead($File))

Thanks - those two lines of code have got me out of a mess I've been racking my brain on for the last hour or so....

[tanim]

This puts the whole file content in the clipboard:

$File = "D:file.txt"
ClipPut(FileRead($File))

Thanks. I was also looking for this and thanks to you in my first post here

[hg2051]

If I get $File like this:

$File=FileRead($aXYZ,0)

ClipPut puts nothing in the clipboard.

Do you see how to overcome this?

[kylomas]

Well, it is almost Easter...

What is the value in $aXYZ?

Show your script including the clipput function.

Use code tags to post the script, please.

kylomas

[Nessie]

If I get $File like this:

$File=FileRead($aXYZ,0)

ClipPut puts nothing in the clipboard.

Do you see how to overcome this?

You have used FileRead, but you have setted to 0 the number of characters to read. That's why you don't see nothing

BTW it's a good pratice to use the FileOpen handle in FileRead.

$File = @ScriptDir & "\MyFile.txt"
$Open = FileOpen($File, 0)
$Read = FileRead($Open)
ClipPut($Read)
FileClose($Open)

Hi!

[kylomas]

You have used FileRead, but you have setted to 0 the number of characters to read.

Yes, of course, DUH!?!?

[Nessie]

Yes, of course, DUH!?!?

That happens, maybe is this easter time muttley

Hi!

[kylomas]

Yes, waiting for brain ressurection...

[Nessie]

Yes, waiting for brain ressurection...

[offtopic]That make me laughing out so loud [/offtopic]