ligne de log. .

Version imprimable

03/05/2007, 14h11
bogizo

ligne de log. .

est ce que qq'un peu m'expliquer cette ligne???

Print #FileLog, "I:Find table '" + tablename + "' from universe '" + strFileList(intN) + "'"

(Universe etant un univers pour Business Object)
C'est surtout le Print #FileLog qui me pose probleme...

Merci d'avance
03/05/2007, 14h13
OhMonBato

Ca semble être un enregistrement dans un fichier texte.
03/05/2007, 14h15
bogizo

EN fait je dois transformer cette ligne (et bien d'autre) en C++...

donc si qq'un si connait...
03/05/2007, 14h16
Phifi

Print = instruction d'écriture
#FileLog = n° du fichier ouvert
le reste = la ligne inscrite dans le fichier

ça doit pas être bien dur en C++
03/05/2007, 14h19
zazaraignée

FileLog est un nom de variable pour le numéro du fichier. C'est obligatoirement ça. En appuyant sur :f1: , tu aurais trouvé ceci:

Citation:

Envoyé par MSDN

Print # Statement

Writes display-formatted data to a sequential file.

Syntax

Print #filenumber, [outputlist]

The Print # statement syntax has these parts:

Part Description
filenumber Required. Any validfile number.
outputlist Optional.Expression or list of expressions to print.

Settings

The outputlistargument settings are:

[{Spc(n) | Tab[(n)]}] [expression] [charpos]

Setting Description
Spc(n) Used to insert space characters in the output, where n is the number of space characters to insert.
Tab(n) Used to position the insertion point to an absolute column number, where n is the column number. Use Tab with no argument to position the insertion point at the beginning of the nextprint zone.
expression Numeric expressions orstring expressions to print.
charpos Specifies the insertion point for the next character. Use a semicolon to position the insertion point immediately after the last character displayed. Use Tab(n) to position the insertion point to an absolute column number. Use Tab with no argument to position the insertion point at the beginning of the next print zone. If charpos is omitted, the next character is printed on the next line.

Remarks

Data written with Print # is usually read from a file with Line Input # or Input.

If you omit outputlist and include only a list separator after filenumber, a blank line is printed to the file. Multiple expressions can be separated with either a space or a semicolon. A space has the same effect as a semicolon.

ForBoolean data, either True or False is printed. The True and False keywords are not translated, regardless of thelocale.

Date data is written to the file using the standard short date format recognized by your system. When either the date or the time component is missing or zero, only the part provided gets written to the file.

Nothing is written to the file if outputlist data isEmpty. However, if outputlist data isNull, Null is written to the file.

For Error data, the output appears as Error errorcode. The Error keyword is not translated regardless of the locale.

All data written to the file using Print # is internationally aware; that is, the data is properly formatted using the appropriate decimal separator.

Because Print # writes an image of the data to the file, you must delimit the data so it prints correctly. If you use Tab with no arguments to move the print position to the next print zone, Print # also writes the spaces between print fields to the file.

Note If, at some future time, you want to read the data from a file using the Input # statement, use the Write # statement instead of the Print # statement to write the data to the file. Using Write # ensures the integrity of each separate data field by properly delimiting it, so it can be read back in using Input #. Using Write # also ensures it can be correctly read in any locale.

J'ai VB en anglais, chez moi. Que veux-tu? J'habite en Amérique!
03/05/2007, 14h27
bogizo

f1???? et quand on a pas VB installé???

je suis sous c++builder5 et on m'a demandé de traduire un code VB en C++ (je suis developpeur Java!! Allez comprendre 8O :roll: :mouarf: )

et cette ligne ci??

Set MyResult = MyDB.OpenRecordset(Query, dbOpenSnapshot, dbSQLPassThrough)

pourriez vous m'expliquer un peu les différentes etapes..
03/05/2007, 14h28
OhMonBato

Je suis pas sûr qu'il ait VB... ça sent plutôt le besoin de traduction VB --> C++

Par contre bogizo, t'es pas obligé d'ouvrir un nouveau sujet. Poser la question une seule fois devrait suffire.
03/05/2007, 14h30
OhMonBato

Plutot que de mettre les lignes une par une, tu ferais mieux de mettre tout d'un coup (utilises les balises code stp, l'icone # au dessus de la zone de rédaction du message) et si tu as du bol, tu trouveras quelqu'un qui pourra t'aider.
03/05/2007, 14h31
bogizo

je sais c pour ca que je l'ai fait mais personne ne repondant sur l'autre post.. et pour ne pas faire un post a chaque question.....

ok voila le code :lol:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
tablename = UCase(table.Name)
  Print #FileLog, "I:Find table '" + tablename + "' from universe '" + strFileList(intN) + "'"
  Query = "select * from hdd12 a ,hdd13 b where a.GRPNUM= b.GRPNUM and b.IDTENT = a.IDTENT and lower(b.IDTENT) = '" + LCase(tablename) + "' and b.IDTSOC = '" + MltSocForm.numsoctxt.Text + "' "
  Set MyResult = MyDB.OpenRecordset(Query, dbOpenSnapshot, dbSQLPassThrough)
  DoEvents
  If (Not MyResult.EOF) Then
     If (LCase(table.Name) <> LCase(MyResult!PHYNAM)) Then
            table.Name = MyResult!PHYNAM
            If Err.Number <> 0 Then
                 Print #FileLog, "E:Error while change tables names from '" + tablename + "' to '" + MyResult!PHYNAM + "' (" + Str(Err.Number) + " " + Err.Description + ")"
            Else
                 Print #FileLog, "I:Changing table from '" + tablename + "' to '" + MyResult!PHYNAM + "'"
            End If
      End If
   Else
      Print #FileLog, "E:Table '" + tablename + "' Not found in the data dictionary !!"
   End If

VOus croyez que c'est grave?? :roll: :lol:

03/05/2007, 14h37
bogizo

Ou si qq'un sait m'expliquer les lignes pour que je puisse retranscrire...

Merci bcp
03/05/2007, 14h41
La Praline

En attendant d'avoir des réponses, je te conseil d'essayer de voir sur le forum C++, des fois qu'il y traine un co-developpeur VB avec une bonne âme

Citation:

Envoyé par bogizo

f1???? et quand on a pas VB installé???

MSDN en ligne, tu as des liens partout sur ce site

Citation:

Envoyé par bogizo

je suis sous c++builder5 et on m'a demandé de traduire un code VB en C++ (je suis developpeur Java!! Allez comprendre 8O :roll: :mouarf: )

Mais tu sais quand même coder en C++ ? car on peut bien commenter le code VB mais pas te le pondre en C++, d'ailleurs il n'est pas assez complet pour le faire.

Aller je m'y colle 5 minutes, mais aidez-moi les gars, j'ai pas que ça à faire

et le début...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
' UCase = fonction UpperCase 
' elle sort d'où la table "table" ?
tablename = UCase(table.Name)
' écriture dans le fichier log ouvert sous le numéro #FileLog de la chaine de caractère "I:Find..."
  Print #FileLog, "I:Find table '" + tablename + "' from universe '" + strFileList(intN) + "'"
' Requête SQL
  Query = "select * from hdd12 a ,hdd13 b where a.GRPNUM= b.GRPNUM and b.IDTENT = a.IDTENT and lower(b.IDTENT) = '" + LCase(tablename) + "' and b.IDTSOC = '" + MltSocForm.numsoctxt.Text + "' "
' Ouverture d'un recordset basé sur la requête précédente
  Set MyResult = MyDB.OpenRecordset(Query, dbOpenSnapshot, dbSQLPassThrough)
  DoEvents
' Si il y a des résultats
' EOF = End Of File
  If (Not MyResult.EOF) Then
     ' Si le nom de la table est différent
     If (LCase(table.Name) <> LCase(MyResult!PHYNAM)) Then 'LCase = LowerCase
            ' changement du nom de la table définie on ne sait où
            ' MyResult!PHYNAM => recordset!nomduchamp
            table.Name = MyResult!PHYNAM
            ' en cas d'erreur on log
            If Err.Number <> 0 Then
                 Print #FileLog, "E:Error while change tables names from '" + tablename + "' to '" + MyResult!PHYNAM + "' (" + Str(Err.Number) + " " + Err.Description + ")"
            Else
            ' sinon on log le changement du nom de la table  
                 Print #FileLog, "I:Changing table from '" + tablename + "' to '" + MyResult!PHYNAM + "'"
            End If
      End If
   Else
      ' la table n'a pas été trouvée
      Print #FileLog, "E:Table '" + tablename + "' Not found in the data dictionary !!"
   End If

et la suite ?

03/05/2007, 14h47
bogizo

J'ai des bases en C.. et des bases en VB mais qui datent...:?
03/05/2007, 14h52
Delbeke

Diantre oui, on te demande de traduire du Chinois en Laponais, et tu ne parles aucune des deux langues. C'est grave pour celui qui t'a demandé çà !

Sinon ,d'après ce que je comprends de ton extrait de code,
Query est une variable de type string

MyDB est un objet de connection à une Base de données

MyResult est un objet Recordset de base de données. A ce titre, il dispose de plusieurs methodes/propriétés (pas d'evénement à ce que je sache)

l'instruction

Code:

Set MyResult = MyDB.OpenRecordset(Query, dbOpenSnapshot, dbSQLPassThrough)

sert à récuperer un recordset sur une requête (contenue dans Query) effectuée sur une base, préalablement ouverte (MyDB) , les deux autres paramètres (dbOpenSnapshot, dbSQLPassThrough) permettant de qualifier le type de recordset, ne sont pas très importants

DoEvents permet de laisser windows exécuter ses taches arrièrre plan

EOF est une propriété de l'objet MyResult (MyResult.EOF) qui est mise à true lors que l'on est sur le dernier enregistrement du recordset ou si le recordset est vide

Je ne peux pas bien dire ce qu'est l'objet table un type defini par l'utilisateur ou un objet. mais on peut voir qu'il a une propriété Name, à la quelle on affecte le contenu du champs PHYNAM dans l'enregistrement en cours de lecture (MyResult!PHYNAM)

Voila, j'esperes que ça te suffira
03/05/2007, 14h55
Phifi

Grillé !
03/05/2007, 15h10
bogizo

C mon supérieur qui le demande donc!!!!!!!

Merci bcp ca m'aide deja vachement...
03/05/2007, 16h37
Vld44

question conne : y'a ADO en C++ ?
03/05/2007, 17h04
Phifi

Il doit bien y avoir un moteur qui renvoie des recordsets en C++ ! DAO au pire !
03/05/2007, 22h35
zazaraignée

Je laisse les potes t'aider. J'ai juste lu un peu sur le C mais rien de plus. Et désloée d'avoir présumé que tu avais un quelconque environnement VB installé sur ton poste.

Bonne chance.