Extraire constantes fichier d'aide de pure baasic

[dayvid]

Hello !

j'ai fait sa car j'en avais besoin pour extraire sans me casser la tête
toutes les constantes du fichiers d'aide de pure basic

Cependant, ayan oublier le fichier ou étais les constante (c'est pas grave)
je vous suggère d'aller le chercher dans l'aide et de placer les info dans le fichier "TMP.txt"

Code : Tout sélectionner

If ReadFile(0, "tmp.txt")  ; Si le fichier peut être lu , on continue...
    While Eof(0) = 0           ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File') 
      a$ = ReadString(0)    ; Affiche ligne par ligne le contenu du fichier
      
      If FindString(a$, "#", 1)
        pos = 0
        Caractere$ = ""
        qs$ = ""
        Repeat
          pos + 1
          qs$ = Mid(a$, pos, 1)
          If qs$ <> " "
            Caractere$ + Mid(a$, pos, 1)
          EndIf
        Until qs$ = " "
        sd$ + Caractere$ + Chr(13) + Chr(10)
      EndIf
      
    Wend
    CloseFile(0)               ; Ferme le fichier précédemment ouvert
  Else
    MessageRequester("Information","Impossible d'ouvrir le fichier!")
  EndIf

[Mindphazer]

[graph100]

ah ? toi aussi ?

[Kwai chang caine]

Je dirais même plus

[dayvid]

Bin quoi

[Ar-S]

Bin quoi

Bin ce que tu as dit est juste incompréhensible, mais sans déconner, c'est hallucinant

[dayvid]

Sa veut dire que ce que j'ai fait est bien ou pas
c'est basic pourtant, en quoi c'est hallucinant ???

[Ar-S]

Ton 1er sujet la haut, je ne comprends vraiment pas ce que tu veux faire, j'ai pas compris le but de ce programme.

[dayvid]

Ah ok

En faite, dans l'aide de pure basic il y as un page ou sont référencer toutes les constante de pure basic
et moi je voulais toutes les extraire pour un de mes prog, voilà

[Ar-S]

Regarde ce super programme ..

Code : Tout sélectionner

pb$="D:\PROG\PureBasic4.51\" ; <= met le chemin de ton répertoire purebasic ici

chm.s=Chr(80)+Chr(117)+Chr(114)+Chr(101)+Chr(66)+Chr(97)+Chr(115)+Chr(105)+Chr(99)+Chr(46)+Chr(99)+Chr(104)+Chr(109)
If RunProgram(chm,"",pb$)
Else
  MessageRequester("erreur","Tu as du indiquer un mauvais chemin...")
EndIf  
End

[dayvid]

Ah lol

A oui, superbe programme en effets

c'est tous c'que tu sait faire ! (Unreal Tournament)

[Ar-S]

Tu peux aussi copier coller ce que tu trouveras en ligne..

[Kwai chang caine]

Plus exactement ici
http://purebasic.com/french/documentati ... tants.html