Discussion :

[siro1]

Bonjour,

J'ai un petit problème, enfaite, j 'aimerai exporter le texte contenu dans un champ de type texclob voici un morceau de code qui montre comment je procede :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Read [SDD] SDD0(1)= 'LVCTO111200001'
If fstat = 0
    Local Char ID
    Local Char TEXTE(250)(1..10)
    Setlob ID With [F:SDD]SDDTEX
    Infbox "ID : "+ID
    Read [TXC] TXC0 = ID
    If fstat = 0
        TEXTE(1) = [F:TXC]TEXTE
        Infbox "TEXTE : "+TEXTE
    Endif
Else 
    Infbox"ERROR"
Endif

Voici ce que j'obtiens :

TEXTE:{\rtf1\ansi\ansipg1252\deff0\deflang1036\{\fonttbl{\f0\fswiss\fprq2\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs17 texte du clob\par}

voici ce que je dois obtenir

texte du clob

Quel est le problème ? pourquoi me ramene t il toute ces information qui ne sont pas compris dans mon champ texte de la table texclob ??

Merci à tous.

[darkvins]

Bonjour,

CLOB = Character Large OBject
Il te remonte tout le paramétrage de la zone de texte (encodage, police, taille, format, etc...)
Lorsque j'ai voulu insérer un texte supplémentaire au début d'un clob, j'ai du dév une petite fonction pour enlever les caractères qui se trouve avant la partie qui nous intéresse.

En espérant t'avoir aider.

[joffreyb]

Bonjour,

Le plus simple est de prendre le champ TEXCLOB.TEXTE_0 qui va bien via Crystal Reports et d'utiliser l'interprétation RTF sur la zone

Cdt

Joffrey B.

[darkvins]

Je ne crois pas qu'il veuille passer par Crystal mais par traitement spé X3.

[jeromecha]

Tu as essayé de déclarer ta variable locale TEXTE(250)(1..10) en clbFile ?

[herve008]

Bonjour,

J'ai un petit problème, enfaite, j 'aimerai exporter le texte contenu dans un champ de type texclob voici un morceau de code qui montre comment je procede :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Read [SDD] SDD0(1)= 'LVCTO111200001'
If fstat = 0
    Local Char ID
    Local Char TEXTE(250)(1..10)
    Setlob ID With [F:SDD]SDDTEX
    Infbox "ID : "+ID
    Read [TXC] TXC0 = ID
    If fstat = 0
        TEXTE(1) = [F:TXC]TEXTE
        Infbox "TEXTE : "+TEXTE
    Endif
Else 
    Infbox"ERROR"
Endif

Voici ce que j'obtiens :


voici ce que je dois obtenir


Quel est le problème ? pourquoi me ramene t il toute ces information qui ne sont pas compris dans mon champ texte de la table texclob ??

Merci à tous.

Bonjour, dans l'aide en ligne
[cite]Lorsqu'on alimente une variable par un clob contenant du texte riche, le texte et les attributs sont copiés dans la variable[/cite]
une solution pas la meilleur : changer dans ta table et les écrans le type de format pour du texte brut (TXX) de tête
inconvénient plus de mise en forme
cdt

[Zeroneurone]

Désolé de remonter un vieux truc, mais je profiterai de la réponse pour poser une question qui est pile-poil dans le sujet

J'alimente ma variable WCLOB comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
I = instr(1, [TXC]TEXTE, "fs17 ")
If  I > 0 Then
    J = instr(I, [TXC]TEXTE, "\par")
    WCLOB = seg$([TXC]TEXTE, I+5, J-1)
Endif

C'est du bricolage, mais jusqu'à maintenant cela à bien fonctionné et ça me permet de virer toute la mise en forme et de ne garder que le texte. Il faut juste s'assurer que la variable WCLOB soit d'un type ou d'une taille suffisante pour récupérer le texte.


Pour ma question, j'ai un problème d'encodage du clob :
- Lorsque je le lis (en visuel via une fonction X3 standard), j'ai le texte : "N° de cde"
- Lorsque je récupère le champs via traitement, j'obtiens "N\'ba de cde" (+/- la valeur UNICODE du caractère)

Est-ce que quelqu'un à une idée comment je dois m'y prendre pour contourner le problème ?

Merci merci merci !!

Zero




[Edit : Correction de quelques problèmes de typo...]

[sdev3]

Bonjour
essaye avec le traitement lié

func ZRTFV5.ZTRF([F:TXC]TEXTE)

[Zeroneurone]

Je ne peux que mettre un 20/20 !!
Par curiosité, comment tu t'y es pris ?


... sans oublier : MERCI !!!


Zero