Jump to content

Recommended Posts

Posted

$temp=" "
$slet_liste=FileOpen("X:\TSA\Special\programmer\find_glemte_ver_i_pdf\a\a_0.txt", 2)
FileWriteLine($slet_liste,"" & $temp)
FileClose($slet_liste)
Sleep(100)
Global $i_l
$file = FileOpen("X:\TSA\Special\programmer\find_glemte_ver_i_pdf\a_liste_UDEN_REV.txt", 0)

run ("cmd.Exe")

 While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop

WinActivate ("cmd.exe")
Sleep(500)
send("type X:\TSA\Special\programmer\find_glemte_ver_i_pdf\pdf_liste_kun_vare_nr.txt | find /i ")
Send("{ASC 034}")
send($line)
send(".")
Send("{ASC 034}")
send(" > X:\TSA\Special\programmer\find_glemte_ver_i_pdf\a\temp_liste.txt")
send("{ENTER}")
Sleep(100)

$temp_liste=FileOpen("X:\TSA\Special\programmer\find_glemte_ver_i_pdf\a\temp_liste.txt", 0)
$temp2 = FileReadLine($temp_liste, 1)
FileClose($temp_liste)

$i_h=FileOpen("X:\TSA\Special\programmer\find_glemte_ver_i_pdf\a\a_0.txt", 1)
If $i_h = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileWriteLine($i_h,"" & $temp2)
FileClose($i_h)
Sleep(100)

$h_l=FileOpen("X:\TSA\Special\programmer\find_glemte_ver_i_pdf\samlet_liste.txt", 1)
If $h_l = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileWriteLine($h_l,"" & $temp2)
FileClose($h_l)
Sleep(100)

WEnd

FileDelete("X:\TSA\Special\programmer\find_glemte_ver_i_pdf\a\temp_liste.txt")

send("exit")
send("{ENTER}")
FileClose($file)
I hope that I have written this post twice. :mellow:

Excuse my English it is translated using the Goggels

Hello

I must have done a cmd commando

I have tried that programs me outwards with the following

WinActivate ( "cmd.exe")

Sleep (500)

send ( "type X: \ TSA \ Special \ Programs \ find_glemte_ver_i_pdf \ pdf_liste_kun_vare_nr.txt | find / i")

Send ( "(ASC 034)")

send ($ line)

Send (".")

Send ( "(ASC 034)")

send ( "> X: \ TSA \ Special \ Programs \ find_glemte_ver_i_pdf \ a \ temp_liste.txt")

send ( "(ENTER)")

Sleep (100)

It also works, but I want it written in an internal command in Autoit

I have tried myself with RunWait (@ ComSpec

But unfortunately I can not get it to work.

Is there one of you will help me?

Thanks in advance

Posted

Run(@Comspec & " commands here")

Hello

Thank you for your prompt response.

My problem is that I need it to insert the variable $ line and to my dos commando demands that are placed "around and Autoit will not accept that there are more" than those who

surrounding the line

Posted

Thank that yuo try to help me

my CMD command looks like lise

type X:\TSA\Special\ Programs\find_glemte_ver_i_pdf\pdf_liste_kun_vare_nr.txt | find /i "12345" > X:\TSA\Special\Programs\find_glemte_ver_i_pdf\a\temp_liste.txt

where "12345" most be $line

But the ComSpec will not accept the "" around $line

Posted (edited)

$line = '12345'
$cmd = 'X:\TSA\Special\ Programs\find_glemte_ver_i_pdf\pdf_liste_kun_vare_nr.txt | find /i "' & $line & '" > X:\TSA\Special\Programs\find_glemte_ver_i_pdf'

Run(@ComSpec & ' /c ' & $cmd)

or, maybe more useful:

$findstr = '12345'
$cmd = 'X:\TSA\Special\ Programs\find_glemte_ver_i_pdf\pdf_liste_kun_vare_nr.txt | find /i "' & $findstr & '" > '
$outfile = 'X:\TSA\Special\Programs\find_glemte_ver_i_pdf'

Run(@ComSpec & ' /c ' & $cmd & $outfile)
Edited by whim

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...