Discussion :

[bogizo]

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

[OhMonBato]

Ca semble être un enregistrement dans un fichier texte.

[bogizo]

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

donc si qq'un si connait...

[zazaraignée]

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

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!

[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 )

et cette ligne ci??

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

pourriez vous m'expliquer un peu les différentes etapes..

[Phifi]

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

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

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

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 :

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

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 ?

[bogizo]

J'ai des bases en C.. et des bases en VB mais qui datent...

[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.

[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.

[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.....

[bogizo]

ok voila le code

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
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??

[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++