function variable(line,character) dim dernierCrLf as integer 'position du début de la ligne dernierCrLf=1 dim i as integer for i =2 to line dernierCrLf=InStr(dernierCrLf, variable, vbCrLf)+2 '+2 pour les caractères Cr Lf next variable=Mid$(variable, dernierCrLf + character, [longueur]) end function
function variable(line,character) dim dernierCrLf as integer 'position du début de la ligne dernierCrLf=1 dim i as integer for i =2 to line dernierCrLf=InStr(dernierCrLf, variable, vbCrLf)+2 '+2 pour les caractères Cr Lf next variable=Mid$(variable, dernierCrLf + character, [longueur]) end function