Re-writing Function To Send From The Clipboard

[styles3000]

I'm wanting to replace a string within a file. The problem I'm having is that I'm coming from the clipboard. I've been trying to send what was copied without shellexecuting. Is it possible to StringReplace from the clipboard to a file without opening it?

expandcollapse popup

Global $hFile
Global $SomeTxt
Global $StartPos, $EndPos
Global $Find_This, $Find_This_Too
Global $MyResult

$Find_This = "<googlecode>"
$Find_This_Too = "</googlecode>"
$hFile = FileOpen("D:\Objects To Burn\Adsense\websites\HOME-MASTER-PHP2.htm ",0)    ;Open file in read mode

If @error Then
    MsgBox(0,"Warning", "Unable to open file")
    Exit
EndIf

$SomeTxt = FileRead($hFile) ;reads the complete file
FileClose($hFile)
$StartPos = StringInStr($SomeTxt,$Find_This) + StringLen($Find_This) ;finds the first string and puts the pos direct behind the found string

If $StartPos = 0 Then       ;means $Find_This not found, no need to continue
    MsgBox(0,"Warning", "Unable to find: " & $StartPos)
    Exit
Else
    ConsoleWrite("$StartPos= " & $StartPos & @CRLF)     ;not needed just added to check if code works
EndIf

$EndPos = StringInStr($SomeTxt,$Find_This_Too,0,1,$StartPos) ;finds the first occurence of $Find_This_Too after $Start_pos

If $EndPos = 0 Then     ;means $Find_This_Too was not found, no need to continue
    MsgBox(0,"Warning", "Unable to find: " & $EndPos)
    Exit
Else
    ConsoleWrite("$EndPos= " & $EndPos & @CRLF)     ;not needed just added to check if code works
EndIf

$MyResult = (StringMid($SomeTxt,$StartPos,$EndPos-$StartPos))
$MyResult = StringStripWS($MyResult,3)


If StringLen($MyResult) <> 0 Then
    MsgBox(0,"Finished", "You were looking for: " & $MyResult   )
    $text_from_clip = ClipGet() ;Takes the result off the clipboard
    $result = StringReplace($SomeTxt, $MyResult, $text_from_clip)
    Clipput($Result)    ;Put the result on the clipboard
Else
    MsgBox(0,"Warning", "Unable to find the wanted string")
EndIf


Sleep(5000)
ShellExecute("D:\Objects To Burn\Adsense\websites\HOME-MASTER-PHP2.htm ")
Sleep(5000)
Send("{ALTDOWN}{ALTUP}e")
Sleep(500)
Send("a")
Sleep(500)
Send("{CTRLDOWN}v{CTRLUP}")

[PsaltyDS]

I'm wanting to replace a string within a file. The problem I'm having is that I'm coming from the clipboard. I've been trying to send what was copied without shellexecuting. Is it possible to StringReplace from the clipboard to a file without opening it?

You want to write to a file without opening it...?

[styles3000]

You want to write to a file without opening it...?

My bad, that was a poor choice of words. I do want to go into the file but without opening it on my desktop.

In other words, I want to open it in a "behind the scenes" kind of way.

[AdmiralAlkex]

My bad, that was a poor choice of words. I do want to go into the file but without opening it on my desktop.

In other words, I want to open it in a "behind the scenes" kind of way.

Use FileOpen and FileWrite then.

[styles3000]

Use FileOpen and FileWrite then.

thanks