Dll pour multilangues

Télécharger le projet
Commenter

Description

Petite DLL pour utilisation d'une application ou d'un site internet en ASP en plusieures langues.

Source / Exemple : 


Public Function GetMsg(InLanguage As String, InMsgNo As String) As String
    Dim FileLng As String, StringOutNumber As String
    Dim StringOutFR As String, StringOutEN As String, StringOutDE As String, StringOutIT As String
    FileLng = App.Path + "\messages.lng"
    Open FileLng For Input As #1
    Do While Not EOF(1)
        Input #1, StringOutNumber, StringOutFR, StringOutEN, StringOutDE, StringOutIT
        If StringOutNumber = InMsgNo Then
            Select Case UCase(InLanguage)
                Case "FR"
                    GetMsg = StringOutFR
                Case "EN"
                    GetMsg = StringOutEN
                Case "DE"
                    GetMsg = StringOutDE
                Case "IT"
                    GetMsg = StringOutIT
            End Select
            Exit Do
        End If
    Loop
    Close #1
    If Len(GetMsg) < 1 Then
        Select Case UCase(InLanguage)
            Case "FR"
                GetMsg = "Message " + InMsgNo + " pas trouvé."
            Case "EN"
                GetMsg = "Message " + InMsgNo + " not found."
            Case "DE"
                GetMsg = "Gefundene Mitteilung " + InMsgNo + " nicht."
            Case "IT"
                GetMsg = "Messaggio " + InMsgNo + " non trovato."
        End Select
    End If
End Function

Conclusion :


Lire le fichier "Exemple d'utilisation en VB6 ou ASP.txt" dans le ZIP pour exemple d'utilisation
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Danette)