Bonjour,

J'ai généré et compilé un programme avec visual studio 2012 en visual basic.
Je dois faire fonctionner ce programme sur un PC Macintosh.

' Lecture fichier GDTEtilab.GDT et remplissage du tableau
Dim lines As New List(Of String)
'on lit le fichier
lines = IO.File.ReadAllLines("C:\etilab\import\GDTEtilab.GDT", System.Text.Encoding.UTF8).ToList
'on traite lines
For Each item In lines
ChaineTravailDebut = Mid(item, 4, 4)
ChaineTravailFin = Mid(item, 8, 100)
If ChaineTravailDebut = "3000" Then
num = ChaineTravailFin
End If
If ChaineTravailDebut = "3001" Then
nom = ChaineTravailFin
MsgBox(prenom)
End If
'ChaineTravailDebut = item.Substring(3, 4)
'ChaineTravailFin = item.Substring(7, 100)
If ChaineTravailDebut = "3102" Then
prenom = ChaineTravailFin
MsgBox(prenom)
End If
If ChaineTravailDebut = "3103" Then
jjnaissance = Mid(ChaineTravailFin, 1, 2)
mmnaissance = Mid(ChaineTravailFin, 3, 2)
aanaissance = Mid(ChaineTravailFin, 5, 4)
naissance = aanaissance + mmnaissance
naissance = naissance + jjnaissance
End If
If ChaineTravailDebut = "3106" Then
cp = Mid(ChaineTravailFin, 1, 4)
ville = Mid(ChaineTravailFin, 6, 100)
MsgBox(ville)
End If
If ChaineTravailDebut = "3107" Then
adresse = ChaineTravailFin
End If
If ChaineTravailDebut = "3110" Then
sexenum = ChaineTravailFin
If sexenum = 1 Then
sexe = "H"
End If
If sexenum = 2 Then
sexe = "F"
End If
End If
Next

Le programme lit un fichier et affiche le prénom dans un MsgBox


Explorer1 = "https://www.proxilis.ch/directlab/link_doc.php?"
Explorer2 = Explorer1 + action
Explorer3 = Explorer2 + "&"
Explorer4 = Explorer3 + user
Explorer41 = Explorer4 + "&"
Explorer42 = Explorer41 + code_labo
Explorer5 = Explorer42 + "&"
Explorer6 = Explorer5 + id_med
Explorer7 = Explorer6 + "&"
Explorer8 = Explorer7 + "num=" + num
Explorer9 = Explorer8 + "&"
Explorer10 = Explorer9 + "nom=" + nom
Explorer11 = Explorer10 + "&"
Explorer12 = Explorer11 + "prenom=" + prenom
Explorer13 = Explorer12 + "&"
Explorer14 = Explorer13 + "sexe=" + sexe
Explorer15 = Explorer14 + "&"
Explorer16 = Explorer15 + "naissance=" + naissance
Explorer17 = Explorer16 + "&"
Explorer18 = Explorer17 + "adresse=" + adresse
Explorer19 = Explorer18 + "&"
Explorer20 = Explorer19 + "cp=" + cp
Explorer21 = Explorer20 + "&"
Explorer22 = Explorer21 + "ville=" + ville
Explorer23 = Explorer22 + "&"
Explorer24 = Explorer23 + "pays=" + pays
Explorer25 = Explorer24 + "&"
Explorer26 = Explorer25 + "tel=" + tel
Explorer27 = Explorer26 + "&"
Explorer28 = Explorer27 + "mobile=" + mobile
Explorer29 = Explorer28 + "&"
Explorer30 = Explorer29 + "email=" + email
Explorer31 = Explorer30 + "&"
Explorer32 = Explorer31 + open
ChaineExplorer = Explorer32
'MsgBox(ChaineExplorer)
Process.Start(ChaineExplorer)A la fin du programme le code est envoyé sur une adresse https://www.pro............ et les données sont inséré dans la page WEB.

Merci de votre aide

A bientôt