Rapatrier des données xojo_code

Bonjour,
J’essaie de rapatrier les données “texte” d’un fichier “.xojo_code” (ex : App.xojo_code), fichier qui s’est automatiquement créé quand j’ai enregistré mon programme en format “.xojo_project” mais dans le Debbug, il me dit qu’il n’existe pas.

Comment faire ?

PS : Le fichier avec l’extension “.xojo_Project” j’arrive à le lire.

A bientôt

J’ai trouvé :

f étant l'adresse du dossier contenant les données extraites du programme ".xojo_project"

		dim x as string=f.Parent.NativePath+"/"+Element
		f1=GetFolderItem(x,FolderItem.PathTypeShell)

au lieu de :

		dim x as string=f.Parent.NativePath+"/"+Element
		f1=GetFolderItem(x)

Voilà.

Voici une methode simple:
Var f_dossier As New FolderItem
Var f_Fils_s As String
Var extNom As String
Var f_xojo_code As FolderItem

For Each file As FolderItem In f_dossier.Children
f_Fils_s = file.Name
extNom = f_Fils_s.NthField ( “.” , 2 )
Select Case extNom
Case “xojo_code”
f_xojo_code = file
Exit
End Select

Next

If f_xojo_code <> Nil Then
MessageBox( “Gagné” )
End If

Beep
//

C’est mieux avec les couleurs et mise en page Xojo.

Ceci dit, je ne comprends pas mieux ce que ce code fait.
Il ne faut pas que le fichier “xojo_code” se nomme:
mon.joli.projet.xojo.code…

Code:

f_Fils_s.NthField ( “.” , 2 )

Code vue IDE:


Var f_dossier As New FolderItem
Var f_Fils_s As String
Var extNom As String
Var f_xojo_code As FolderItem

For Each file As FolderItem In f_dossier.Children
f_Fils_s = file.Name
extNom = f_Fils_s.NthField ( “.” , 2 )
Select Case extNom
Case “xojo_code”
f_xojo_code = file
Exit
End Select

Next

If f_xojo_code <> Nil Then
MessageBox( “Gagné” )
End If

Beep
//

Je ne mets jamais de points dans les noms de programme.
Donc c’est bien la formule “extNom = f_Fils_s.NthField ( “.” , 2 )” que j’utilise.

En fait, comme je ne suis pas un adepte des organigrammes (j’aimerais bien pourtant, je prends de l’age), je me suis créé un prog pour lister sur un seul document toutes les actions (Windows, methods, properties, pictures, folders etc) avec dans les methods tous les appels de methods et de programmes de l’application.

Je sais c’est peut-être bizarre mais je vais pouvoir m’y retrouver plus facilement.
En plus je stocke tous mes blocs cités ci-dessus dans une DB.
donc le “xojo_code” une fois ouvert me sert à extraire toutes ces petites choses, voilà.

Pour les organigrammes (ou ordinogrammes) je suis preneur d’une une piste pour apprendre.
Merci.

Tu devrais remplacer
extNom = f_Fils_s.NthField ( “.” , 2 )
par
Var dernierPoint As Integer = f_Fils_s.CountFields ( “.” )
extNom = f_Fils_s.NthField ( “.” , dernierPoint )

Cela t eviera d avoir des pb si le nom du programme a plusieurs .

Pour tout savoir , c est simple … il faut du temps
JLP