En fait le fichier vient d'une datawindow à laquelle on a appliqué la méthode saveas() donc je pense que le séparateur est une tabulation.

pour aider à comprendre le code, il peut être utile de se créer une petite DW (grid par exemple) de type "external", d'y mettre quelques colonnes de types différents et de regarder ce que ça donne dans "edit source"

Il y a plusieurs parties dans une DW
- un entête (avec la version est divers réglages de la dw, comme les couleurs, unités, sections, ...
- la liste des colonnes avec leurs types (comprendre colonnes dans le sens base de données, pas colonnes visibles) si c'est une dw basée sur une reqête, on a la liste des colonnes sélectionnées)
- en dessous on a la requête si c'est une dw basée sur une requête, si c'est une external on n'est pas concerné
- en dessous on a la liste des contrôles visibles : entêtes et colonnes, l'ordre n'est pas important mais une chose est à respecter rigoureusement (sous peine de comportement bizarre et / ou plantages) : pour un objet "column" doit avoir la propriété "id" égale au numéro de colonne dans la liste au début de la DW

Ici mon code :
- commence par utiliser un entête préconstruit (récupéré dans un "edit source") = variable ls_syntaxheader
- ajoute une liste de colonnes avec leur type (calculé avant l'appel à la fonction et donné dans les tableaux en argument) avec la variable ls_coldecl comme modèle
- ajoute la liste des entêtes de colonnes avec la variable ls_textdecl comme modèle
- ajoute la liste des colonnes avec la variable ls_vcolumndecl comme modèle
- ajoute un code "footer" qui ne bouge pas, repris aussi d'un "edit source"

Les variables "modèles" sont comme des templates de code : comme il faut répéter la même syntaxe pour chaque déclaration de colonne, entête et colonne, j'ai écrit une fois le texte dans lequel je remplace les $variables par leur véritable valeur (juste pour les id, position, nom, ... les autres propriétés sont identiques

Pour iif() et replacall() (à renommer en replace_all()), voir ici

Pour une implémentation simple (=naïve) de append :

global type append from function_object
end type

forward prototypes
global subroutine append (ref string as_dest, string as_added)
end prototypes

global subroutine append (ref string as_dest, string as_added);
as_dest += as_added

end subroutine

et pour le calcul de la taille des chaînes, il y a une structure, quelques prototypes et constantes à définir en plus de 2 fonctions getstringwidth() et getstringwidthunits() à ajouter dans l'objet ou fenêtre et enlever le "unvo_gdi.":

type st_size from structure
  long    cx
  long    cy
end type


Function ULong GetDC(ULong hWnd) Library "User32.DLL"
Function ULong ReleaseDC(ULong hWnd, ULong hDC) Library "User32.DLL"
Function Ulong SelectObject (Ulong hDC, Ulong hObject) Library "gdi32.dll"
FUNCTION ulong DeleteObject(ulong hObject) LIBRARY "gdi32.dll"     
function long MulDiv(long nNumber, long nNumerator, int nDenominator) library "kernel32.dll"
Function ulong CreateFont(long nHeight,ulong nWidth,ulong nEscapement,ulong nOrientation,ulong fnWeight,boolean fdwItalic,boolean fdwUnderline,boolean fdwStrikeOut,ulong fdwCharSet,ulong fdwOutputPrecision,ulong fdwClipPrecision,ulong fdwQuality,ulong dwPitchAndFamily,ref string lpszFace) LIBRARY "gdi32.dll" ALIAS FOR "CreateFontW"  
Function ulong GetDeviceCaps(ulong hdc,ulong nIndex) library "gdi32.dll"
Function Boolean GetTextExtentpoint32(ULong hdc, string lpString, int cbString, ref ST_SIZE lpSize) library "gdi32.dll" alias for "GetTextExtentPoint32W"


constant integer FW_NORMAL     = 400
constant integer FW_BOLD       = 700
constant ulong DEFAULT_CHARSET     = 1   //(x01)
constant ulong LOGPIXELSX = 88  //Number of pixels per logical inch along the screen width.

public function long of_getstringwidth (window aw_parent, string as_text, string as_fontname, integer ai_size, boolean ab_bold, boolean ab_italic);// computes the width in pixels of a string as drawn in the specified font

ulong ll_handle, ll_hdc, ll_hdcbis
ulong ll_hfont
ulong weight
long height
long width = -1
st_size size

ll_handle = handle(aw_parent)
ll_hdc = GetDC(ll_handle)

// create the specified font
if ab_bold then weight = FW_BOLD else weight = FW_NORMAL
// compute the height using the display device physical properties
height = -MulDiv(ai_size, GetDeviceCaps(ll_hdc, LOGPIXELSX), 72)
ll_hfont = CreateFont( height, 0, 0, 0, weight, ab_italic, false, false, 0, DEFAULT_CHARSET, 0, 0, 0, as_fontname)
// use that font for the device context
SelectObject(ll_hdc, ll_hfont)

if GetTextExtentPoint32(ll_hdc, as_text, len(as_text), size) then
  width = size.cx + 1 //add 1 is better, look trhough MSDN for clues ;o)
end if

DeleteObject(ll_hfont)
ReleaseDC(ll_handle, ll_hdc)

return width

end function



public function long of_getstringwidthunits (window aw_parent, string as_text, string as_fontname, integer ai_size, boolean ab_bold, boolean ab_italic);// computes the size in pixels of a string as drawn in the specified font
// returns a result in PB units

long width = -1

width = of_getstringwidth(aw_parent, as_text, as_fontname, ai_size, ab_bold, ab_italic)
width = PixelsToUnits(width, XPixelsToUnits!) 

return width

end function

Pour EXTRA_COL, il suffit d'ajouter un "constant string EXTRA_COL = 'toto' " pour que la syntaxe soit juste, c'est une constante qui sert dans le projet d'où est extrait le code, il suffit de supprimer ce qui ne sert pas.

C'est une erreur "boum", ou il y a un message compréhensible ?
A la ligne du dw.create(), lb_ret = true ? si non c'est que la syntaxe est incorrecte quelque part (il y a peut-être une $variable qui n'a pas été remplacée ?)

j'ai ajouté cette ligne : dw_check = create datawindow
ça ne crashe plus mais ça retourne -1

Tu ne peux pas faire  dw_check = create datawindow car la dw est un objet visuel

à la rigueur tu peux faire openuserobject(dw_check) mais je pense que tu n'en a pas besoin non plus car tu as surement déjà "posé" ta DW sur ta Window.

à mon avis tu voulais plutôt faire

dw_check.create( ls_syntax, ls_errors )

zeineb a écrit:

j'ai ajouté cette ligne : dw_check = create datawindow
ça ne crashe plus mais ça retourne -1

Mais... Pourquoi créer une datawindow avec create ? Il n'y a pas de contrôle datawindow (= d'objet visuel datawindow) dans la fenêtre ?

zeineb a écrit:

oui exactement j'ai fait dw_check.create( ls_syntax, ls_errors ) mais ça ne marche que dans le cas d'une datastore

Ben non, ici ça fonctionne avec une datawindow, le problème est ailleurs.

Récapitulons :
1 - dans la fenêtre on ajoute un contrôle datawindow en plus du reste (boutons, ...); on voit un rectangle vide
2 - on ne configure pas de dataobject pour cette datawindow (alors que dans le cas normal on associe un objet "datawindow" à un contrôle visuel "datawindow" (ce ne sont pas les mêmes objets ) ) en passant par la propriété "dataobject"
3 - on ne fait pas non plus de "create" car la création du contrôle a déjà été fait par pb à l'ouverture de la fenêtre (quand il remplit le tableau "controls", pour le vérifier il suffit de faire "edit source" sur la fenêtre et de chercher "on create" de la fenêtre)
4 - on traite le fichier pour en extraire la liste et le type des colonnes
5 - on appelle la fonction qui fabrique la syntaxe de la datawindow grid à partir des tableaux de paramètres
6 - la syntaxe est utilisée sur le contrôle datawindow avec dw.create(syntaxe) ATTENTION de ne pas confondre la méthode "create" de la datawindow qui permet de la construire à partir d'une syntaxe et l'instruction "create" du pbscript pour allouer un nouvel objet (ici c'est fait automatiquement)

Comme a dit rincevent, ce qui devrait être pratique c'est d'utiliser "dw_check.create( ls_syntax, ls_errors )" qui permet de récupérer une éventuelle erreur au lieu du simple "-1" indiquant que ça cafouille.

Ah j'ai oublié de mentionner le fait que ma datawindow n'est pas liée à une window!

bein elle me sert à stocker des données d'une manière temporaire.
je l'ai créé dans le clicked d'un bouton qui est sensé faire des traitements sur ces données.

Si les données sont temporairement en mémoire et n'ont pas besoin d'être visualisées, alors le code du début de discussion qui génère la syntaxe peut-être simplifiée (sur les calculs de couleur), et surtout il n'y a aucun intérêt à appeler of_getstringwidthunits pour calculer des largeurs visibles : on peut avoir chaque colonne avec une largeur de 42 (valeur choisie arbitrairement).