Page 1 sur 1
Inclure un TXT en DATA et le relire [Resolu]
Publié : dim. 27/déc./2009 11:42
par 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
Re: Inclure un TXT en DATA et le relire
Publié : dim. 27/déc./2009 12:07
par zaphod
Peut-être comme ça ?
Code : Tout sélectionner
v.s
v=PeekS(?txt1)
Debug v
DataSection
txt1:
IncludeBinary "montext.txt"
EndDataSection
Re: Inclure un TXT en DATA et le relire
Publié : dim. 27/déc./2009 16:59
par 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
Re: Inclure un TXT en DATA et le relire
Publié : lun. 28/déc./2009 11:35
par 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
Re: Inclure un TXT en DATA et le relire
Publié : lun. 28/déc./2009 11:38
par 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
Re: Inclure un TXT en DATA et le relire [Resolu]
Publié : lun. 28/déc./2009 11:45
par Kwai chang caine
La burne de l'espace a écrit :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
Re: Inclure un TXT en DATA et le relire [Resolu]
Publié : lun. 28/déc./2009 11:46
par 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
Re: Inclure un TXT en DATA et le relire [Resolu]
Publié : lun. 28/déc./2009 11:50
par Kwai chang caine
Re: Inclure un TXT en DATA et le relire [Resolu]
Publié : lun. 28/déc./2009 11:56
par 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
Re: Inclure un TXT en DATA et le relire [Resolu]
Publié : lun. 28/déc./2009 11:59
par Kwai chang caine
Arrete KCC, je t'aime trop...mais je vais plus avoir de place sur mon disque dur
Encore merci
Re: Inclure un TXT en DATA et le relire [Resolu]
Publié : lun. 28/déc./2009 12:32
par Le psychopathe
Lol le monologue ^^
J'aimerai bien des fois trouver les réponses comme ça mdr
Re: Inclure un TXT en DATA et le relire [Resolu]
Publié : lun. 28/déc./2009 13:23
par Kwai chang caine
Re: Inclure un TXT en DATA et le relire [Resolu]
Publié : lun. 28/déc./2009 15:22
par Ar-S
ahlala tu m'as fais vraiment bien marrer sur ce topic.
Re: Inclure un TXT en DATA et le relire [Resolu]
Publié : lun. 28/déc./2009 16:22
par Kwai chang caine
Merci
Tout le plaisir etait pour moi
