Write to txt file

[olo]

Hi Folks,

I have the clipboard output data and the message box displays it. However I cannot seem to copy the clipboard contents to a txt file.

Can anyone help?

ClipPut($sContent1 & @CRLF & $sContent2 & @CRLF & $sContent3 & @CRLF & $sContent4 & @CRLF & $sContent5 & @CRLF & $sContent6)

MsgBox(0,"Please Work", ClipGet(),4)

Local $OLO = FileOpen("PCData.csv", 1)
FileWrite($OLO, ClipGet())
FileClose($OLO)

[Xenobiologist]

Works for me. What is $content1?

[olo]

Content 1 and the rest of the contents are all like this:

+5V

120

–

215

mA

[Xenobiologist]

What is the exact problem? Is the file empty, or is there no file at all?

As mentioned above, the script (without the first line) works for me.

[olo]

theres no file at all

[guinness]

Try to use an absolute path, as right now you're relying on the working directory e.g.

@ScriptDir & '\SomeFile.txt'

[olo]

theres no file at all

What do you mean? Could you explain that a bit more?

[JLogan3o13]

Does this:

MsgBox(0, "", $sContent1 & @CRLF & $sContent2 & @CRLF & $sContent3 & @CRLF & $sContent4 & @CRLF & $sContent5 & @CRLF & $sContent6)

return what you expect?

Edited April 12, 2013 by JLogan3o13

[guinness]

Also you're using 1 which means append to the end of an existing file. Try this >>

ClipPut($sContent1 & @CRLF & $sContent2 & @CRLF & $sContent3 & @CRLF & $sContent4 & @CRLF & $sContent5 & @CRLF & $sContent6)

MsgBox(0,"Please Work", ClipGet(),4)

Local $OLO = FileOpen(@ScriptDir & "\PCData.csv", 2)
FileWrite($OLO, ClipGet())
FileClose($OLO)

[olo]

Does this:

MsgBox(0, "", $sContent1 & @CRLF & $sContent2 & @CRLF & $sContent3 & @CRLF & $sContent4 & @CRLF & $sContent5 & @CRLF & $sContent6)

return what you expect?

Does yes. Returns what I want.

[olo]

Also you're using 1 which means append to the end of an existing file. Try this >>

ClipPut($sContent1 & @CRLF & $sContent2 & @CRLF & $sContent3 & @CRLF & $sContent4 & @CRLF & $sContent5 & @CRLF & $sContent6)

MsgBox(0,"Please Work", ClipGet(),4)

Local $OLO = FileOpen(@ScriptDir & "\PCData.csv", 2)
FileWrite($OLO, ClipGet())
FileClose($OLO)

Didnt seem to work

[guinness]

This works for me, sorry.

#include <Constants.au3>

Local $hFileOpen = FileOpen(@ScriptDir & '\SomeFile.txt', $FO_OVERWRITE)
FileWrite($hFileOpen, 'Some__Data' & @CRLF)
FileClose($hFileOpen)

[water]

Didnt seem to work

What do you mean by "didn't seem to work"? What are the return values of the functions you call? What's the value of @error after you called a function?

Please be more specific!

[olo]

ok here is my full code.

Now the idea of the program is simple.

• Basically open a pdf and navigate to a section called power consumption.
• The power consumption is split into 6 rows and 5 columns.
• Now I want to copy 1 row at a time and store it in a variable. So $row1 , $row2 etc
• Then once done for the 6 rows, copy the data stored in the 6 row variables to the clipboard
• Then from the clipboard to a txt file.

A problem Im also having is that I use absolute positioning of the mouse. So I have to place the mouse at the starting value of each row.

N.B. Of course because its a PDF if there is a blank row(i.e. no data) it drags the pdf and puts off the other values of the other rows since they use specific mouse positioning.

please help ive been at this for a week now

expandcollapse popup

#include <String.au3>
#include <File.au3>
#include <Array.au3>
#include <Clipboard.au3>

;DECLARIATIONS

Local $PDFFileName = 'c:\acra\datasheet\adc_126.pdf'
Local $PDFViewer = "C:\Program Files\SumatraPDF\SumatraPDF.exe"
Local $RunString = $PDFViewer & " " & $PDFFileName

;METHODS

Func _WinWaitActivate($title,$text,$timeout=0)
    WinWait($title,$text,$timeout)
    If Not WinActive($title,$text) Then WinActivate($title,$text)
    WinWaitActive($title,$text,$timeout)
EndFunc

Func _Check_HighLit_row1()

MouseMove(246, 459)
sleep(500)
MouseClickDrag ( "LEFT", 246, 459, 508, 461)
Send("{CTRLDOWN}c{CTRLUP}")
Send("{PGUP}")
Send("{CTRLDOWN}f{CTRLUP}Power{SPACE}consumption{ENTER}")

Global $row1 = ClipGet()

    If $row1 Then
        MsgBox(0, "HighLit", $row1, 2)
    Else
        MsgBox(0, "Nothing", "No Data", 2)
    EndIf
EndFunc

Func _Check_HighLit_row2()

MouseMove(241, 482)
sleep(500)
MouseClickDrag ( "LEFT", 241, 482, 509, 481)
Send("{CTRLDOWN}c{CTRLUP}")
Send("{PGUP}")
Send("{CTRLDOWN}f{CTRLUP}Power{SPACE}consumption{ENTER}")

Global $row2 = ClipGet()

    If $row2 Then
        MsgBox(0, "HighLit", $row2, 2)
    Else
        MsgBox(0, "Nothing", "No Data", 2)
    EndIf

EndFunc

Func _Check_HighLit_row3()

MouseMove(247, 500)
sleep(500)
MouseClickDrag ( "LEFT", 247, 500, 507, 538)
Send("{CTRLDOWN}c{CTRLUP}")
Send("{PGUP}")
Send("{CTRLDOWN}f{CTRLUP}Power{SPACE}consumption{ENTER}")

Global $row3 = ClipGet()

    If $row3 Then
        MsgBox(0, "HighLit", $row3, 2)
    Else
        MsgBox(0, "Nothing", "No Data", 2)
    EndIf

EndFunc

Func _Check_HighLit_row4()

MouseMove(244, 534)
sleep(500)
MouseClickDrag ( "LEFT", 244, 534, 507, 534)
Send("{CTRLDOWN}c{CTRLUP}")
Send("{PGUP}")
Send("{CTRLDOWN}f{CTRLUP}Power{SPACE}consumption{ENTER}")

Global $row4 = ClipGet()

    If $row4 Then
        MsgBox(0, "HighLit", $row4, 2)
    Else
        MsgBox(0, "Nothing", "No Data", 2)
    EndIf

EndFunc

Func _Check_HighLit_row5()

MouseMove(210, 552)
sleep(500)
MouseClickDrag ( "LEFT", 210, 552, 506, 564)
Send("{CTRLDOWN}c{CTRLUP}")
Send("{PGUP}")
Send("{CTRLDOWN}f{CTRLUP}Power{SPACE}consumption{ENTER}")

Global $row5 = ClipGet()

    If $row5 Then
        MsgBox(0, "HighLit", $row5, 2)
    Else
        MsgBox(0, "Nothing", "No Data", 2)
    EndIf

EndFunc

Func _Check_HighLit_row6()

MouseMove(209, 589)
sleep(500)
MouseClickDrag ( "LEFT", 209, 589, 505, 591)
Send("{CTRLDOWN}c{CTRLUP}")
Send("{PGUP}")
Send("{CTRLDOWN}f{CTRLUP}Power{SPACE}consumption{ENTER}")

Global $row6 = ClipGet()

    If $row6 Then
        MsgBox(0, "HighLit", $row6, 2)
    Else
        MsgBox(0, "Nothing", "No Data", 2)
    EndIf

EndFunc

Func _Save()

    Global $End = FileOpen("PsData.csv", 2)
    FileWrite($End, ClipGet())
    FileClose($End)

EndFunc

;MAIN FUNCTION
Run($RunString)

_WinWaitActivate("ADC_126.pdf - [untitled] - SumatraPDF","")
Send("{CTRLDOWN}f{CTRLUP}Power{SPACE}consumption{ENTER}")

Call("_Check_HighLit_row1")
Call("_Check_HighLit_row2")
Call("_Check_HighLit_row3")
Call("_Check_HighLit_row4")
Call("_Check_HighLit_row5")
Call("_Check_HighLit_row6")

ClipPut($row1 & @CRLF & $row2 & @CRLF & $row3 & @CRLF & $row4 & @CRLF & $row5 & @CRLF & $row6)
MsgBox(0,"Please Work", ClipGet(),4)

Call("_Save")

[Mechaflash]

I'm going to vomit at what I see here... someone hold my hair...

MouseClickDrag to highlight text...

[olo]

I'm going to vomit at what I see here... someone hold my hair...

MouseClickDrag to highlight text...

We can vomit together!

anythign you can suggest to help a noob then? I only started this language on monday

[water]

Wouldn't it be easier to translate the PDF to a text file and then process the text file?

Search Google for "free pdf to text converter command line" and you will find something like this.

[olo]

It would be 1000000x easier.

But my boss wants to have the file remain as a pdf.

In fact he even wants me to run this script for multiple pdfs so not just this single one

[jdelaney]

PDF really needs an api; it's such a pain. If you can convert it to word, you will be better off...then you just need to grab the colection of tables, and loop through them.

[water]

The input PDF remains unchanged. The tools extracts the text from the PDF and writes it to an output file. You then can easily process the output file or many of them.