filereading

[hrumus]

Hai. I have a file filled with country codes.. like .com is for usa domain (usually) and i want this file to be copied into an other file i got.

it has to post it like this

INSERT INTO `countries` VALUES ('COM', 'USA');

INSERT INTO `countries` VALUES ('DE', 'DEUTSCHLAND');

and so on.

i tried alot of things but i just dont copy it right into the new file

please help me

i attached the original file with all the countries and countrycodes in.

countries.txt

[GEOSoft]

Hai. I have a file filled with country codes.. like .com is for usa domain (usually) and i want this file to be copied into an other file i got.

it has to post it like this

INSERT INTO `countries` VALUES ('COM', 'USA');

INSERT INTO `countries` VALUES ('DE', 'DEUTSCHLAND');

and so on.

i tried alot of things but i just dont copy it right into the new file

please help me

i attached the original file with all the countries and countrycodes in.

Post an example of what you have tried so we can get a better handle on what it is you are trying to do here. Right now I don't know if you are trying to replace text in the original file, create a new text file or write this information to an INI file. maybe even something entirely different.

Perhaps all you want is the order of each line changed

example

cf  Central African Republic

becomes

('cf', 'Central African Republic')

If you want each word like Germany translated to the native tongue then you have a lot of work ahead of you. Edited December 6, 2007 by GEOSoft

[hrumus]

sorry for not being precise enough.. heres my most working script (it doesnt give me and error)

FileOpen("countries.txt",0)
While 1
$readden = FileReadLine("countries.txt")
if @error = -1 Then ExitLoop
filewrite("countries.sql",$readden)
WEnd

but it just outputs alot of Central African Republic in my file

and no translation is needed.. i just wrote DEUTSCHLAND because i thought thats how to spell it

Edited December 6, 2007 by hrumus

[picaxe]

Try this

$hOpen = FileOpen("countries.txt", 0)
While 1
    $readden = FileReadLine($hOpen)
    If @error = -1 Then ExitLoop
    FileWrite("countries.sql", $readden)
WEnd
FileClose($hOpen)oÝ÷ Úí+ºÚ"µÍÈYÛÝ[YËÜ[^ÝÈ[[ÛÝ[YËÝÚÙHÜX]HÛÝ[YËÜ[[UÜ]J ][ÝØÛÝ[YËÜ[   ][ÝË[TXY
    ][ÝØÛÝ[YË  ][ÝÊJ

[hrumus]

thanks. but now i just need it to print in the correct format. like this

INSERT INTO `countries` VALUES ('COM', 'USA');

INSERT INTO `countries` VALUES ('DE', 'GERMANY'); (thanks for the correction GEOSoft)

can any1 help me how to do that ?

[picaxe]

Something like this

$file = "countries.sql"
$hOpen = FileOpen("countries.txt", 0)
$sTxt = ""
While 1
    $readden = FileReadLine($hOpen)
    If @error = -1 Then ExitLoop
    $aRd = StringSplit($readden, @TAB)
    $sTxt &= "INSERT INTO `countries` VALUES ('" & $aRd[1] & "', '" & $aRd[2] & "');" & @CRLF
WEnd
FileOpen($file, 2)  ; write erase, comment out to append
FileWrite($file, $sTxt)
FileClose($hOpen)
FileClose($file)

[hrumus]

HOLY CRAP! UR A GENIUS!!! THANKS SO MUCH