Lenguage System (usa distintos idiomas en tus programas)

Option Explicit

'//////////// Lenguage System /////////////
'/  Programado por Alexander E. Harkonnen /
'/      www.infiernohacker.com            /
'/   2011     EET2 MDQ Argentina          /
'//////////////////////////////////////////
'/
'/ cargue el archivo de idioma con lengload ejemplo spanish.lng o english.lng
'/ use la funcion lleng variable para devolver la variable de idioma
'/ ejemplo de archivo spanish.lng
'/ $arc=archivo
'/ ejemplo de archivo english.lng
'/ $arc=file
'/ ejemplo de uso de la variable arc con idioma spanish
'/ LengLoad "spanish.lng"
'/ menuarchivo.caption = Lleng ("arc")
'/ eso pondria el menu archivo en caption "archivo"
'/ y para cambiarlo:
'/ LengLoad "english.lng"
'/ menuarchivo.caption = Lleng ("arc")
'/ eso lo pondría en "file"

Dim tpoint() As String

Public Function LengLoad(ByVal dir As String)
Dim txt As String
Erase tpoint
Open dir For Input As #1
txt = Input(LOF(1), #1)
Close #1
tpoint = Split(txt, vbCrLf, , vbTextCompare)
End Function

Public Function Lleng(ByVal reference As String)
Dim lineleng As Integer
Dim igual As Integer
ReDim Preserve tpoint(UBound(tpoint))
For lineleng = 0 To UBound(tpoint)
igual = InStr(1, tpoint(lineleng), "=", vbTextCompare)
If Mid(tpoint(lineleng), 2, igual - 2) = reference Then
Lleng = Mid(tpoint(lineleng), igual + 1, Len(tpoint(lineleng)) - igual)
Else
Lleng = "##"
End If
Next
End Function

$menuarchivo=Archivo
$menuedicion=Edicion
$menuver=Ver
$menuayuda=Ayuda

$menuarchivo=File
$menuedicion=Edit
$menuver=View
$menuayuda=Help

LengLoad "spanish.lng"

LengLoad "english.lng"

menu.caption = Lleng "menuarchivo"