#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         myName

 Script Function:
	Template AutoIt script.
	
Pour une application particulière , Ride Runner , Front End Carpc, j'ai besoin de reformater un fichier
de POI (points d'intéret GPS) , au format Garmin .csv dans le même format .csv ou .txt :
Téléchargeable ici par exemple:
http://www2.alertegps.com/download_basi ... ous_menu=1

On y obtient 4 fichiers:
RF.csv , radars fixe
RFR.csv, radars feu rouge
RM.csv, radars mobile
ZD.csv, zones dangereuses


Exemple du format de ces 4 fichiers (ZD.csv n'ayant pas de vitesse définie ex: @110)
55.50166,-21.30224,"Num 3461@110" (Radar fixe)
55.42566,-21.30207,"Num 3457@110" (Radar feu rouge)
55.30042,-21.23435,"Num 3455@90" (Radar Mobile)
55.30413,-20.96288,"Num 3456" (Zone Danger)

Le format Garmin est le suivant :
Longitude,Latitude,"Numéro_du_POI@vitesse"

Je voudrais obtenir:
Latitude,Longitude,"RADAR_FIXE vitesse"

Ce qui donne pour les 4 types de fichiers ci-dessus:
soit :

-21.30224,55.50166,"RADAR_FIXE_110"
-21.30207,55.42566,"RADAR_FEU_ROUGE_110"
-21.23435,55.30042,"RADAR_MOBILE_90"
-20.96288,55.30413,"ZONE_DANGER"
#ce ----------------------------------------------------------------------------

; Traitement d'un fichier .csv dont le format est:
;Longitude,Latitude ,"Numéro Radar@Vitesse" 
;-0.555668,44.812837,"Num 3461@130"
;-0.572405,44.814602,"Num 3457@80"

;Format du fichier aprés traitement
;Latitude ,Longitude,,,DISTANCE,UNITé,"TYPERADAR_VITESSE" 
;44.812837,-0.555668,,,500,M,"RADAR_FIXE_130"
;44.814602,-0.572405,,,500,M,"RADAR_MOBILE_80"

;Ouverture des fichiers test.txt en lecture et test_out.txt en écriture
$file_in = FileOpen("test.txt", 0)
$file_out = FileOpen("test_out.txt", 1)

; Check si fichier d'entrée existe
If $file_in = -1 Then
    MsgBox(0, "Erreur", "Pas de fichier à ouvrir.")
    Exit
EndIf

; Check si fichier de sortie existe
If $file_out = -1 Then
    MsgBox(0, "Erreur", "Pas de fichier de sortie.")
    Exit
EndIf

; Read in lines of text until the EOF is reached
While 1
    $line_in = FileReadLine($file_in)
    If @error = -1 Then ExitLoop
    MsgBox(0, "Ligne lue:", $line_in)
	$line_in = StringSplit("Longitude,Latitude,Numero@Vitesse", ",")
Wend

While 1
	$line_out = FileWriteLine($file_out)
    If @error = -1 Then ExitLoop
    MsgBox(0, "Ligne écrite:", $line_out)
	$line_out = FileWrite($file_out, "Latitude,Longitude,Numero@Vitesse", ",")
Wend

FileClose($file_in)
FileClose($file_out)