AutoIt Français

Code : Tout sélectionner

$file = FileRead ( "albert.txt" )
MsgBox(0,"Caracteres","Il y a "& @extended & " caracteres dans file.txt")
MsgBox(0,"Caracteres","sans compter les retours a la ligne, Il y a "& StringLen(StringReplace(StringReplace($file,@CR,""),@LF,"")) & " caracteres dans file.txt")
 

Code : Tout sélectionner

Global $packets[1000]
Global $i = 0

$value = FileRead(@ScriptDir&"\albert.txt")
_ORDERS_CARACTERES($value)

Func _ORDERS_CARACTERES($string)
    ;============================
    ;=== Nombre de caractères ===
    ;============================
    $max = StringLen(StringReplace(StringReplace($string,@CR,""),@LF,""))
    ;=======================================
    ;=== Tri des packets dans un tableau ===
    ;=======================================
    While $max <> 0
        If $max > 500 Then
            $packets[$i] = StringTrimLeft($string, 500)
            $string = StringReplace($string, $packets[$i], "")
            $max = $max -500
            $i = $i +1
        ElseIf $max < 500 Then
            $max = StringLen(StringReplace(StringReplace($string,@CR,""),@LF,""))
            $packets[$i] = StringTrimLeft($string, $max)
            $string = StringReplace($string, $packets[$i], "")
            $max = 0
            $i = $i +1
        EndIf
    WEnd
    _ArrayDisplay($packets, "")
EndFunc
 

Code : Tout sélectionner

Son père, Hermann Einstein, est né le 30 août 1847 à Buchaun, et meurt le 10 octobre 1902 à Milan. Il épouse Pauline Koch le 8 août 1876. Trois ans plus tard, le 14 mars 1879, Albert Einstein naît dans leur appartement à Ulm en Allemagne ; c’est leur premier enfant. Son intérêt pour la science est éveillé dans son enfance par une boussole à l’âge de cinq ans, et le livre La Petite Bible de la géométrie, à treize ans.

Il fait ses études primaires et secondaires à la Hochschule d’Aargau en Suisse, où il obtient son diplôme le 30 septembre 1896. Il a d’excellents résultats en mathématiques, mais refuse de s’instruire en biologie et en sciences humaines, car il ne perçoit pas l’intérêt d’apprendre des disciplines qu’il estime déjà largement explorées. Il considère alors la science comme le fruit de la raison humaine et de la réflexion. Il demande à son père de lui donner la nationalité suisse afin de rejoindre sa famille émigrée à Milan en Italie.

Il entre à l’École polytechnique fédérale de Zurich (ETH) en 1896 après y avoir cependant raté son premier examen d’entrée. Il s’y lie d’amitié avec le mathématicien Marcel Grossmann, qui l’aide plus tard en géométrie non euclidienne. Il y rencontre aussi Mileva Maric, sa première épouse. Il obtient avec justesse son diplôme en 1900 s’avouant lui-même dans son autobiographie, « incapable de suivre les cours, de prendre des notes et de les travailler de façon scolaire »[3].

Au cours de cette période, il approfondit ses connaissances en autodidacte par la lecture de livres de référence, comme ceux de Boltzmann, de Helmholtz et de Nernst. Son ami Michele Besso l’initie aux idées de la Mécanique de Ernst Mach. Selon plusieurs biographies, cette période de 1900 à 1902 est marquée par la précarité de sa situation : il postule à de nombreux emplois sans être accepté. La misère d’Albert Einstein préoccupe son père qui tente en vain de lui trouver un poste. Albert se résigne alors à s’éloigner du milieu universitaire pour trouver un emploi dans l’administration. En 1901, il publie son premier article scientifique dans les Annalen der Physik, et cet article est dédié à ses recherches sur la capillarité.

Le premier enfant d’Albert Einstein, Lieserl, naît à la fin de l’année 1902. Son existence fut longtemps ignorée des historiens, et il n’existe aucune information connue sur son devenir. Albert et Mileva se marient en 1903, son père lui ayant finalement donné sa permission sur son lit de mort. En 1904, le couple donne naissance à Hans-Albert, puis Eduard Einstein en 1910.
 

Code : Tout sélectionner

[0]|se, où il obtient son diplôme le 30 septembre 1896. Il a d’excellents résultats en mathématiques, mais refuse de s’instruire en biologie et en sciences humaines, car il ne perçoit pas l’intérêt d’apprendre des disciplines qu’il estime déjà largement explorées. Il considère alors la science comme le fruit de la raison humaine et de la réflexion. Il demande à son père de lui donner la nationalité suisse afin de rejoindre sa famille émigrée à Milan en Italie.

Il entre à l’École polytechnique fédérale de Zurich (ETH) en 1896 après y avoir cependant raté son premier examen d’entrée. Il s’y lie d’amitié avec le mathématicien Marcel Grossmann, qui l’aide plus tard en géométrie non euclidienne. Il y rencontre aussi Mileva Maric, sa première épouse. Il obtient avec justesse son diplôme en 1900 s’avouant lui-même dans son autobiographie, « incapable de suivre les cours, de prendre des notes et de les travailler de façon scolaire »[3].

Au cours de cette période, il approfondit ses connaissances en autodidacte par la lecture de livres de référence, comme ceux de Boltzmann, de Helmholtz et de Nernst. Son ami Michele Besso l’initie aux idées de la Mécanique de Ernst Mach. Selon plusieurs biographies, cette période de 1900 à 1902 est marquée par la précarité de sa situation : il postule à de nombreux emplois sans être accepté. La misère d’Albert Einstein préoccupe son père qui tente en vain de lui trouver un poste. Albert se résigne alors à s’éloigner du milieu universitaire pour trouver un emploi dans l’administration. En 1901, il publie son premier article scientifique dans les Annalen der Physik, et cet article est dédié à ses recherches sur la capillarité.

Le premier enfant d’Albert Einstein, Lieserl, naît à la fin de l’année 1902. Son existence fut longtemps ignorée des historiens, et il n’existe aucune information connue sur son devenir. Albert et Mileva se marient en 1903, son père lui ayant finalement donné sa permission sur son lit de mort. En 1904, le couple donne naissance à Hans-Albert, puis Eduard Einstein en 1910.

Code : Tout sélectionner

#include <array.au3>

Global $packets[1000]
Global $i = 0

$value = FileRead(@ScriptDir&"\albert.txt")
_ORDERS_CARACTERES($value)

Func _ORDERS_CARACTERES($string)
    ;============================
    ;=== Nombre de caractères ===
    ;============================
    $max = StringLen(StringReplace(StringReplace($string,@CR,""),@LF,""))
    ;=======================================
    ;=== Tri des packets dans un tableau ===
    ;=======================================
    While $max <> 0
        If $max > 500 Then
            $packets[$i] = StringTrimRight($string, $max - 500)
            $string = StringReplace($string, $packets[$i], "")
           $max = $max -500
            $i = $i +1
            ;MsgBox(0,"Caracteres","Il y a "& $max & " caracteres dans file.txt")
        ElseIf $max < 500 Then
            $max = StringLen(StringReplace(StringReplace($string,@CR,""),@LF,""))
            $packets[$i] = StringTrimRight($string, $max - $max)
            $string = StringReplace($string, $packets[$i], "")
            $max = 0
            $i = $i +1
        EndIf
    WEnd
    _ArrayDisplay($packets, "")

EndFunc

Code : Tout sélectionner

$packets[$i] = StringTrimLeft($string, 500)

Code : Tout sélectionner

$packets[$i] = StringTrimRight($string, $max - 500)