Pl7 Pro 5.5 et configuration matérielle

[lolodu013]

Bonjour,

je cherche à faire un inventaire du parc schneider de mon entreprise. Essentiellement des Premium.

Il a t il possibilité d' imprimer depuis la configuration matérielle, la configuration complète de mon automate??? modèle de cpu rack et le reste...

Merci par avance.

bye

[itasoft]

slts,
Dans STATION clic droit faire exporter/importer FNES / Exporter FNE
Et passer le fichier *.fne exporté à la moulinette ci dessous .
Procédure :
Copier les lignes du script ci dessous et les coller dans le « Bloc notes » enregistrer sous ExtraitMatos.vbs
Avec l’explorateur de fichiers cliquer sur ExtraitMatos.vbs pour lancer la moulinette et ouvrir le fichier *.fne
Résultat dans fichier *.txt
---------------------------------------

Option explicit
Dim TXT, sREF, sDESI
Dim fileNameSource, fileNameCible
Dim X1, X2,X1m
Dim FSO,Rtxt,Wtxt
Dim yaBon
fileNameSource=GetFileNameDlg()
fileNameSource = Ucase(Replace(fileNameSource, vbcrlf, ""))
if InStr(fileNameSource,".FNE")=0 then
MsgBox("Extension fichier Source non valide .FNE")
WScript.Quit 0
end if
'Fichier avec la liste du materiel
fileNameCible = Replace(fileNameSource, ".FNE", ".TXT")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Rtxt = FSO.OpenTextFile(fileNameSource)
Set Wtxt = FSO.createTextFile(fileNameCible,true)
Do While Not Rtxt.AtEndOfStream
TXT = Rtxt.Readline
yaBon=InStr(TXT, "RACK") or yaBon
X1 = InStr(TXT, "REFERENC ")
If X1 > 0 Then
sREF = replace(Mid(TXT, X1+9)," ","")
End If
X2 = InStr(TXT, "DESIGNAT ")
If X2 > 0 Then
sDESI = Mid(TXT, X2+9)
End If
If X1m > 0 And X2 > 0 and yaBon Then
Wtxt.writeline (sREF & vbTab & sDESI)
End If
X1m=X1
Loop
Rtxt.Close
Wtxt.Close
Set FSO = Nothing
Set Rtxt = Nothing
Set Wtxt = Nothing
MsgBox "Fin des opérations" , vbInformation, fileNameCible
Function GetFileNameDlg()
GetFileNameDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<input type=file id=f><script language=""VBScript"">f.click():CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).WriteLine(f.value):close()</script>""").StdOut.ReadAll
End Function

[lolodu013]

Déjà, merci pour le coup de main.
Par contre quand je fait de l'export ça me propose uniquement .FEF et non FEN.... et ça ne fonctionne pas....

[lolodu013]

du coup j ai remplacer :
Option explicit
Dim TXT, sREF, sDESI
Dim fileNameSource, fileNameCible
Dim X1, X2,X1m
Dim FSO,Rtxt,Wtxt
Dim yaBon
fileNameSource=GetFileNameDlg()
fileNameSource = Ucase(Replace(fileNameSource, vbcrlf, ""))
if InStr(fileNameSource,".FEF")=0 then
MsgBox("Extension fichier Source non valide .FEF")
WScript.Quit 0
end if
'Fichier avec la liste du materiel
fileNameCible = Replace(fileNameSource, ".FEF", ".TXT")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Rtxt = FSO.OpenTextFile(fileNameSource)
Set Wtxt = FSO.createTextFile(fileNameCible,true)
Do While Not Rtxt.AtEndOfStream
TXT = Rtxt.Readline
yaBon=InStr(TXT, "RACK") or yaBon
X1 = InStr(TXT, "REFERENC ")
If X1 > 0 Then
sREF = replace(Mid(TXT, X1+9)," ","")
End If
X2 = InStr(TXT, "DESIGNAT ")
If X2 > 0 Then
sDESI = Mid(TXT, X2+9)
End If
If X1m > 0 And X2 > 0 and yaBon Then
Wtxt.writeline (sREF & vbTab & sDESI)
End If
X1m=X1
Loop
Rtxt.Close
Wtxt.Close
Set FSO = Nothing
Set Rtxt = Nothing
Set Wtxt = Nothing
MsgBox "Fin des opérations" , vbInformation, fileNameCible
Function GetFileNameDlg()
GetFileNameDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<input type=file id=f><script language=""VBScript"">f.click():CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).WriteLine(f.value):close()</script>""").StdOut.ReadAll
End Function

Et ça me sort un fichier txt vide

[itasoft]

slts
il faut pas exporter l'application mais faire et rien modifier dans le script, tu sais pas lire ?

Dans STATION tout en haut de la liste clic droit faire exporter/importer FNES / Exporter FNE

[lolodu013]

je dois mal comprendre. regarde mes photos

1.JPG (27.11 Kio) Vu 3573 fois

1.JPG (27.11 Kio) Vu 3573 fois

[itasoft]

[lolodu013]

je comprend mieux ce que tu di

1.JPG (27.11 Kio) Vu 3572 fois

t mais tu vois bien que je n'ai pas le même onglet

[lolodu013]

arfffff j ai le V4.5 pas le 5.5

[itasoft]