Et comme dirait un francophone: Ça dépeint bien le sujet.... cet ami anglais m'a certifié que ton expression "pedigree painting" était correcte pour les anglais.
Et comme dirait un francophone: Ça dépeint bien le sujet.... cet ami anglais m'a certifié que ton expression "pedigree painting" était correcte pour les anglais.
Le choix t'appartientEt comme dirait un francophone: Ça dépeint bien le sujet.
Désolé, mon commentaire était de l'humour.Et comme dirait un francophone: Ça dépeint bien le sujet.
| RU | EN | FR |
Поколение | Поколение | Generation | Génération |
Поколения | Поколения | Generations | Générations |
Поколенная роспись | Поколенная роспись | Painting pedigree | Traçage de l’Arbre |
Поколенная роспись | поколенная роспись | painting pedigree | traçage de l’arbre |
Sub Lecture
lblBonjour.Text=""
Reader.Initialize2(File.OpenInput(File.DirRootExternal, "/Download/base.ged"),"UTF-8")
Do While Ligne <> Null
Ligne = Reader.ReadLine
Log("*" & Ligne & "*")
If Ligne<>Null Then
lgmot=Ligne.Length
If lgmot<>0 Then
If Ligne.SubString2(2, 6) = "CHAR" Then
If Ligne.Substring(lgmot - 4)="ANSI" Then
GedCode="ANSI"
PageCode="ISO-8859-1"
Else If Ligne.SubString(lgmot-5)="UTF-8" Then
GedCode="UTF-8"
PageCode="UTF-8"
Else If Ligne.Substring(lgmot-5)="ASCII" Then
GedCode="ASCII"
PageCode="Windows-1252"
End If
Exit
End If
End If
End If
Loop
Reader.Close
lblEntete.Text="La page de codes nécessaire" & CRLF & "a été identifiée !"
lblBonjour.Text= "Fichier source: " & GedCode & CRLF & " Page de codes nécessaire: " & PageCode
End Sub
58 ENGA Engagement
79 MARB Marriage Banns
80 MARC Marriage Contract
81 MARL Marriage License
82 MARR Marriage
83 MARS Marriage Settlement