turbox Posted August 4, 2008 Share Posted August 4, 2008 I made a greek to ascii converter and filedelete can't delete the new created file charinfo.ini here is the script: $iniexist = FileExists("C:\charinfo.ini") if $iniexist = 0 Then run("cmd.exe") WinWaitActive(@HomeDrive & "\WINDOWS\system32\cmd.exe") send("cd\{ENTER}") sleep(222) send("copy con charinfo.ini{ENTER}") sleep(222) send("^z{ENTER}") $inifile = "[Ascii]" & @CRLF & @CRLF & "Α=128" & @CRLF & "Β=129" & @CRLF & "Γ=130" & @CRLF & "Δ=131" & @CRLF & "Ε=132" & @CRLF & "Ζ=133" & @CRLF & "Η=134" & @CRLF & "Θ=135" & @CRLF & "Ι=136" & @CRLF & "Κ=137" & @CRLF & "Λ=138" & @CRLF & "Μ=139" & @CRLF & "Ν=140" & @CRLF & "Ξ=141" & @CRLF & "Ο=142" & @CRLF & "Π=143" & @CRLF & "Ρ=144" & @CRLF & "Σ=145" & @CRLF & "Τ=146" & @CRLF & "Υ=147" & @CRLF & "Φ=148" & @CRLF & "Χ=149" & @CRLF & "Ψ=150" & @CRLF & "Ω=151" & @CRLF & "α=152" & @CRLF & "β=153" & @CRLF & "γ=154" & @CRLF & "δ=155" & @CRLF & "ε=156" & @CRLF & "ζ=157" & @CRLF & "η=158" & @CRLF & "θ=159" & @CRLF & "ι=160" & @CRLF & "κ=161" & @CRLF & "λ=162" & @CRLF & "μ=163" & @CRLF & "ν=164" & @CRLF & "ξ=165" & @CRLF & "ο=166" & @CRLF & "π=167" & @CRLF & "ρ=168" & @CRLF & "σ=169" & @CRLF & "τ=171" & @CRLF & "υ=172" & @CRLF & "φ=173" & @CRLF & "χ=174" & @CRLF & "ψ=175" & @CRLF & "ω=224" & @CRLF & "ς=170" & @CRLF & "Ά=234" & @CRLF & "ά=225" & @CRLF & "Ώ=240" & @CRLF & "ώ=233" & @CRLF & "Ή=236" & @CRLF & "ή=227" & @CRLF & "Έ=235" & @CRLF & "έ=226" & @CRLF & "Ύ=239" & @CRLF & "ύ=231" & @CRLF & "Ί=237" & @CRLF & "ί=229" & @CRLF & "Ό=238" & @CRLF & "ό=230" & @CRLF & "Ϊ=244" & @CRLF & "ϊ=228" & @CRLF & "ϋ=232" & @CRLF & " =32" FileOpen("C:\charinfo.ini", 1) FileWrite(@HomeDrive & "\charinfo.ini", $inifile) WinClose(@HomeDrive & "\WINDOWS\system32\cmd.exe") Else endif $filecheck = FileExists ( @HomeDrive & "\Ascchars.txt" ) if $filecheck = 0 Then run("cmd.exe") WinWaitActive(@HomeDrive & "\WINDOWS\system32\cmd.exe") send("cd\{ENTER}") sleep(222) send("copy con ascchars.txt{ENTER}") sleep(222) send("^z{ENTER}") WinClose(@HomeDrive & "\WINDOWS\system32\cmd.exe") $true = 1 Else $true = 1 EndIf if $True = 1 Then $string = inputbox("Greek to Ascii converter", "Enter Greek word") $strlen = StringLen($string) if $strlen = 0 Then Exit Else For $i = 1 to $strlen Step 1 $char = StringMid ( $string, $i, 1 ) $asciichar = "{ASC " & IniRead ( "C:\charinfo.ini", "Ascii", $char, "Not Exist" ) & "}" FileOpen("C:\ascchars.txt", 1) FileWrite("C:\ascchars.txt", $asciichar) Next FileDelete(@HomeDrive & "\charinfo.ini") fileopen("C:\ascchars.txt", 1) FileWrite("C:\ascchars.txt", " ( " & $string & " )" & @CRLF & @CRLF) EndIf EndIf MsgBox(0, "Chars Location", "The file with characters is located on " & @HomeDrive & "\ascchars.txt") can somebody help Link to comment Share on other sites More sharing options...
smashly Posted August 4, 2008 Share Posted August 4, 2008 When using FileOpen to FileWrite you should use the handle from fileopen to filewrite. If your using FileOpen then you need to use FileClose to close the file when your finished with it. eg:$FO = FileOpen("C:\ascchars.txt", 1) FileWrite($FO, " ( " & $string & " )" & @CRLF & @CRLF) FileClose($FO) Cheers Link to comment Share on other sites More sharing options...
turbox Posted August 4, 2008 Author Share Posted August 4, 2008 Thank you but what about filedelete command Link to comment Share on other sites More sharing options...
youknowwho4eva Posted August 4, 2008 Share Posted August 4, 2008 Looks like your trying to delete without closing. need to close before you can delete Giggity Link to comment Share on other sites More sharing options...
turbox Posted August 4, 2008 Author Share Posted August 4, 2008 (edited) done Edited August 5, 2008 by vakis Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now