Forum automatisme

slts,
Petite application Vijeo-designer exemple pour l'import / export de variables %MW via clef USB
la demander si le besoin s'en fait cruellement sentir.
AM
------------

Bonjour itasoft,
J'ai commencé à développer une application similaire il y a quelques jours.
Je suis donc intéressé par ta méthode de programmation !

slts
J’ai plusieurs versions en fonction du besoin
V1-Sauvegarde de secours pour pouvoir les re importer en cas de perte , on ne peut pas les visualiser ni les modifier sous Excel
V2-Sauvegarde avec possibilité de les visualiser sous Excel mais sans pouvoir les modifier et les re importer dans l’API
V3-Sauvegarde avec possibilité de les visualiser sous Excel de les modifier et de les re importer dans l’API
En passant par une macro sous Excel

bonjour,

Petite question, tu n'aurai pas une moulinette pour passer du format ICE ver 984LL sur excel?

slts,
c'est quoi ces formats ??

Salut,

C'est quand tu passe de %MWXXX vers 4000XX

slts,
c'est l'adressage ModBus ex: %MW100 --> 40100 c'est ça ?

yessss

Slts,
disons que J’ai une moulinette en VBA qui traite le fichier Export des Variables Elémentaires au format .txt
Dans ce ficher remplace l’adressage absolu des variables %MW0 à %MW9999 par l'adressage ModBus EX: %MW100 -> 40100
Et génère un fichier _RESULT.TXT à importer dans Unity avec écrasement
Copier les lignes de programme ci dessous et les coller dans le VBA de Excel et lancer cette macro
---------------------------------------
Sub Conversion_MW_Unity()
Dim TXT As String, sVAL As String, sOBJ As String, sNEW As String, fileNameSource As String, fileNameCible As String
Dim Number1 As Integer, Number2 As Integer
Dim iVAL As Long
Dim ya_Bon_Banania As Boolean
Dim TList() As String

'--------- fichier source à traiter à personnaliser -----------------------
fileNameSource = "D:\AFF\MCA_2019\variables_unity.txt"

fileNameCible = Replace(UCase(fileNameSource), ".TXT", "_RESULT.TXT")
Number2 = FreeFile
Open fileNameCible For Output As #Number2

Number1 = FreeFile
Open fileNameSource For Input As #Number1
While Not EOF(Number1)
Line Input #Number1, TXT

ya_Bon_Banania = InStr(TXT, "%MW") > 0 And InStr(TXT, ":X") = 0 And (InStr(TXT, "INT") > 0 or InStr(TXT, "DINT") > 0)

If ya_Bon_Banania Then
TList = Split(TXT, vbTab)
sOBJ = TList(1)
sVAL = Replace(sOBJ, "%MW", "")
iVAL = Val(sVAL)
If iVAL < 10000 Then
sNEW = "4" & Format(iVAL, "0000")
TXT = Replace(TXT, sOBJ, sNEW)
Print #Number2, TXT
End If
End If

Wend
Close #Number1
Close #Number2

End Sub

bonjour,
Merci, il me reste plus qu'a devenir un pro de excel...mais c'est super sympa d'avoir pris du temps.

Merci encore

bye