Rappel d´une énigme d´hier non élucidée
UNE ENIGME EPICEE
Sujet d´actualité ( Mme Kerry = Mme Heinz).

HEINZ 57
Que représente le nombre " 57" sur la bouteille de sauce " Heinz 57" ?

L´A B C des Mathématiques
Que vaut a, b et c ?
Si a = b = c et que a + b + c = 1, alors quelle est la valeur de l´expression : ( 1/a) + ( 1/b) + ( 1/c) ?

9?

Oui, Pete, bravo

Ca va j´suis plutôt bine réveillé malgré ce que je pensais.

Comme tu es très bien réveillé,
- je peux poser une énigme esprit malin?
- sans de demander un message par mail, es-tu à peu près d´accord avec ce que je t´ai envoyé hier soir?

1) Euh vas-y mais je ne promet rien
2) Je vais quand même te répondre parce que j´aimerais faire suite à une partie de ce que j´avais dit la dernière fois. Mais je te promet pas une réponse rapide, j´ai pas mal de trucs à faire.
J´aurais d´ailleurs sûrement qqs questions VB à te poser.
Tiens on va commencer tout de suite J´aimerais récupérer les N dernières lignes d´un fichier texte, en partant de la fin pour revenir en arrière et prendre ces lignes. Parce que ce que je fais pour l´instant, c´est compter le nombre de lignes totales, puis de reparcourir le fichier jusqu´à l´endroit où je dois récupérer les lignes. Donc ça marche, mais si le fichier est trop gros, ça peut augmenter le temps d´exécution, donc s´il y avait un moyen de partir de la fin directement ce serait parfait.

Un homme se promène dans les forêts du Nord Canada, à la recherche d´Oligols ( une race de caribous).
Une énorme tempête de neige l´empêche de poursuivre ses recherches.

Il retourne à la côte, prend son bateau, et touche l´Alaska.
Et il repart de plus belle dans les frondaisons et les futaies en quête d´Oligol.
Mais une nouvelle bourrasque l´oblige à rebrousser chemin et à retourner au rivage.

Ces deux contretemps, puisque les tempêtes vont se calmer assez rapidement, auront causé la disparition définitive des Oligols.
Les Oligols disparaîtront à tout jamais de la race des rennes.

Expliquez:
- qui est cet homme ( son nom)
- pourquoi ces contrariétés passagères ont pu causer la disparition de cette race de rennes, pourtant habituée au blizzard qui règne en maître incontesté dans le Grand Nord
- quel événement très important imminent aura lieu dans les jours qui suivirent cette histoire

Je viens de voir ta question VB.

Tu veux lire un fichier . TXT ou un fichier d´une base de donnée relationnelle?

- Fichier . TXT: as-tu des longueurs fixes? Dans ce cas lis-le fichier en binaire, tu vas l´amener en mémoire d´un coup ( 1 seul accès disque) et tu pourras disséquer les enreg par multiple de leur longueur ( en binaire, on peut adresser directement une portion de texte)

- Table Access par ex:
On se positionne par MOVEL
Ex:
Dim MyDb As Database, MyCl As Recordset
Set MyDb = CurrentDb()
Set MyCl = MyDb.OpenRecordset("CLIENTS_POUR_EXPORTATION", dbOpenSnapshot)
If Not MyCl.EOF Then MyCl.MoveLast

Le fichier txt a des longueurs de lignes fixes, mais sa taille varie pendant l´exécution du programme.

sa taille = son nombre de lignes

Bijour!!

Si tu fichier est en texte, tu veux un exemple aussi?

Dim MyChar
Open " FICHTEST" For Input As #1 ´ Ouvre le fichier.
Do While Not EOF(1) ´ Effectue la boucle jusqu´à la fin du fichier.
MyChar = Input(1, #1) ´ Lit un caractère.
Debug.Print MyChar ´ Affiche dans la fenêtre Exécution.
Loop
Close #1 ´ Ferme le fichier.

Salut Céline

Pour traiter un fichier en binaire:
Get, instruction, exemple
Cet exemple utilise l´instruction Get afin de lire les données d´un fichier et de les écrire dans une variable. Nous supposons que FICHTEST est un fichier contenant cinq enregistrements de type Record défini par l´utilisateur .

Type Record ´ Désigne un type défini par l´utilisateur.
ID As Integer
Name As String * 20 ( la longueur d´un enreg par ex)
End Type

Dim MyRecord As Record, Position ´ Déclare les variables.
´ Ouvre l´exemple de fichier en accès aléatoire.
Open " FICHTEST" For Random As #1 Len = Len(MyRecord)
´ Lit l´exemple de fichier à l´aide de l´instruction Get.
Position = 3 ´ Définit le numéro d´enregistrement.
Get #1, Position, MyRecord ´ Lit le troisième enregistrement.
Close #1 ´ Ferme le fichier.

Pete, pour écrire mon prog VB analysant le scene.bin, je n´avais d´autre choix que de tout lire en binaire

lol j´ai oublié le décodeur ce matin

Un homme se promène dans les forêts du Nord Canada, à la recherche d´Oligols ( une race de caribous).
Une énorme tempête de neige l´empêche de poursuivre ses recherches.

Il retourne à la côte, prend son bateau, et touche l´Alaska.
Et il repart de plus belle dans les frondaisons et les futaies en quête d´Oligol.
Mais une nouvelle bourrasque l´oblige à rebrousser chemin et à retourner au rivage.

Ces deux contretemps, puisque les tempêtes vont se calmer assez rapidement, auront causé la disparition définitive des Oligols.
Les Oligols disparaîtront à tout jamais de la race des rennes.

Expliquez:
- qui est cet homme ( son nom)
- pourquoi ces contrariétés passagères ont pu causer la disparition de cette race de rennes, pourtant habituée au blizzard qui règne en maître incontesté dans le Grand Nord
- quel événement très important imminent aura lieu dans les jours qui suivirent cette histoire

Une énigme est en route??

cet homme est un défenseur des oligols?