Inclure un TXT en DATA et le relire [Resolu]

[Kwai chang caine]

Bonjour la famille

Bon j'ai honte, car apres toutes ces années, je sais encore pas faire ça
Alors vu que j'ai fait l'experience que le ridicule ne tue pas...autrement meme si j'etais un highlander, je serais quand meme mort depuis ce temps
Et vu aussi, que vous devez etre de super bonne humeur apres ces fetes qui vous ont "requinquées"

Je vais donc me permettre, l'inaceptable ....
Vous demander comment inserer un banal TXT en includebinary en DATA et le relire (Aie pas sur la tete !! pas sur la tete)
J'ai cherché, sur les forums, mais pas trouvé avec les mots clefs include et txt, y'a des datas mais pas un fichier en include

Merci de votre grandeur d'ame

Bonne journée
La plaie du forum

[zaphod]

Peut-être comme ça ?

Code : Tout sélectionner

v.s
v=PeekS(?txt1)
Debug v


DataSection
txt1:
IncludeBinary "montext.txt"
EndDataSection

[Kwai chang caine]

Merci ZAPHOD de ta reponse

Bah au debut j'avais fait cette methode, mais un PEEKS s'arrete au premier chr(0) rencontré je crois
Et non pas au chr(13) d'une ligne texte, donc je crois que ça oblige a lire caractere par caractere pour obtenir la premiere ligne, puis la seconde, etc ...

Et c'est la que je sais pas comment lire caractere par caractere, j'ai essayé

Code : Tout sélectionner

 Repeat
  Read Caractere
  Phrase$ + Chr(Caractere)
 Until Caractere = 13

DataSection
 IncludeBinary "Texte.txt"
EndDataSection

Mais ça le lis pas dans le DATA

[Kwai chang caine]

T'es vraiment une stouquette, comme d'habitude...j'ai rien compris a ce que tu veux
Tiens KCC....et si tu essayais ça ...

Code : Tout sélectionner

Repeat

 Phrase$ = ""

 Repeat
  
  Caractere = PeekB(?Texte + Offset)
  Offset + 1
    
  Select Caractere 
   Case 13
    Debug Phrase$
   Case 10
    Break
   Case 0
    Break 2
   Default
    Phrase$ + Chr(Caractere)
  EndSelect
     
 ForEver
  
ForEver

Debug Phrase$

End

DataSection
 Texte:
 IncludeBinary "Texte.txt"
EndDataSection

[Kwai chang caine]

Ouuaaaahhh !!!! cool

Passé un moment, j'ai bien cru que personne y pourrais m'aider
Bah, je crois que cette fois ce que je demandais devais etre trop simple

Mais pas moyen de me rapeller comment lire dans les DATA
Merci beaucoup KCC de ton aide...sans toi..je crois bien que je ne m'en serais pas sorti

Tu es beau !!!

Je te souhaite une excelente journée, ainsi qu'a ZAPHOD qui m'a aussi donné un coup de main

[Kwai chang caine]

Tu es beau !!!

N'exagerons rien KCC !!!! On peut pas dire qu'a chaque fois que je m'assoie, j'ecrase une fille
J'ai cherché deux jours pour te donner cette reponse
Mais l'important c'est qu'elle te depanne

Voila...alors si tu as besoin d'autre chose....surtout...ne me le demande pas

[Kwai chang caine]

Ne t'inquiette pas KCC....j'ai bien assez de copains dans la famille de PB pour se partager ma peine.
Merci encore de ta gentillesse

T'es vraiment un frere....et je pourrais meme dire "JUMEAU" sans exagerer

[Kwai chang caine]

[Kwai chang caine]

Tiens résidu de programmeur....j'ai trouvé encore mieux.
Mais pas la peine de me remercier...t'as pas un abonnement

Code : Tout sélectionner

Repeat

 Phrase$ = ""

 Repeat
  
  Caractere = PeekB(?Texte + Offset)
  Offset + 1
    
  Select Caractere 
   Case 10, 0
    Break
   Default
    If Caractere <> 13
     Phrase$ + Chr(Caractere)
    EndIf 
  EndSelect
     
 ForEver
 
 Debug Phrase$
 
Until Not Caractere 

End

DataSection
 Texte:
 IncludeBinary "Texte.txt"
EndDataSection

Ou ça

Code : Tout sélectionner

Repeat

 Phrase$ = ""

 Repeat
  
  Caractere = PeekB(?Texte + Offset)
  Offset + 1
    
  If Caractere = 10 Or Caractere = 0
   Break
  ElseIf Caractere <> 13
   Phrase$ + Chr(Caractere)
  EndIf 
     
 ForEver
 
 Debug Phrase$
 
Until Not Caractere 

End

DataSection
 Texte:
 IncludeBinary "Texte.txt"
EndDataSection

[Kwai chang caine]

Arrete KCC, je t'aime trop...mais je vais plus avoir de place sur mon disque dur
Encore merci

[Le psychopathe]

Lol le monologue ^^
J'aimerai bien des fois trouver les réponses comme ça mdr

[Kwai chang caine]

Ooohhh !!! y'a quinquin qui a ecrit et qui a pas le meme avatar que KCC !!!

Lol le monologue ^^
J'aimerai bien des fois trouver les réponses comme ça mdr

Merci

On peut pas dire que ce soit le monologue du vagin .....


C'est plutot le monologue du trou duc

[Ar-S]

ahlala tu m'as fais vraiment bien marrer sur ce topic.

[Kwai chang caine]

Merci
Tout le plaisir etait pour moi