Changeset 341 for tools/dbc_export/DBCExport.pas

Timestamp:

Feb 27, 2010, 8:06:39 PM (14 years ago)

Author:

maron

Message:

Místo cyklu prohledávájící v datách entry vytvoření tabulky indexů, zkrácení průchodu osou X při přepisování textů

File:

• tools/dbc_export/DBCExport.pas (modified) (7 diffs)

tools/dbc_export/DBCExport.pas

@@ -24 +24 @@
     NewDBCFileName: string;
     ColumnTypeDefinition: string;
+    LastIndexStringColumns: integer;
+    IndexTable: array of integer;
     SQLquery: string;
     DisplayData: Boolean;
@@ -33 +35 @@
     procedure SaveDBC;
     procedure ReplaceText;
+    procedure CreateIndexTable(var DbRows: TDbRows);
     function GetIDbyEntry(entry: integer; var DBRows: TDBRows): integer;
   end;
@@ -120 +123 @@
   WriteLn('  -c --coltypedef  DBC column type definition string (u - uint32, s - string)');
   WriteLn('  -d --display     Display DBC data');
-  WriteLn('  -q --sql_query  SQL select when entry is ID first column in dbc file and text0,text1... is texts columns');
-  // SELECT T.entry as entry,T.Text as text0 FROM (SELECT * FROM gametips WHERE (Complete = 1) AND ((Language = 1)) AND (User IN (459,670,602,462,1,400,638,592,624,610,769,331,131,704,2,499,641,660,578,337,304,277,208,613,768,754,590,606,26,618,739,503,601,607,585,596,765,320,547,687)) AND VersionStart <= 9947 AND VersionEnd >= 9947) AS T GROUP BY T.entry
+  WriteLn('  -q --sql_query  SQL select when entry is ID first column in dbc file and text1,text2... is texts columns');
+  // SELECT T.entry as entry,T.Text as text1 FROM (SELECT * FROM gametips WHERE (Complete = 1) AND ((Language = 1)) AND (User IN (459,670,602,462,1,400,638,592,624,610,769,331,131,704,2,499,641,660,578,337,304,277,208,613,768,754,590,606,26,618,739,503,601,607,585,596,765,320,547,687)) AND VersionStart <= 9947 AND VersionEnd >= 9947) AS T GROUP BY T.entry
 end;
 
@@ -153 +156 @@
       // Load strings for string columns
       for I := 1 to Length(ColumnTypeDefinition) do
-        if ColumnTypeDefinition[I] = 's' then
+        if ColumnTypeDefinition[I] = 's' then begin
           LoadColumnStrings(I - 1);
+          LastIndexStringColumns:=I;
+        end;
+
 
     end else WriteLn('File ' + DBCFileName + ' not exists.');
@@ -174 +180 @@
   DBRows : TDbRows;
   Text: String;
-  X, Y, I: Integer;
+  X, Y, I,entry: Integer;
   IndexRowData: Integer;
 begin
@@ -182 +188 @@
       DBRows := Database.Query(SQLquery);
 
+      CreateIndexTable(DBRows);
+
 
       for Y := 0 to Length(DBC.Cells) - 1 do begin
-        if (Y = 129) then
-               IndexRowData:= GetIDbyEntry(Cells[Y,0],DBRows);
-        IndexRowData:= GetIDbyEntry(Cells[Y,0],DBRows);
-        I := 0;
-        if (IndexRowData <> -1) then begin
-          for X := 0 to Length(ColumnTypeDefinition)-1 do begin
-            if ColumnTypeDefinition[X+1] = 's' then begin
-              Text:=DBRows.Data[IndexRowData].Values['text'+IntToStr(I)];
-              SetString(Y,X,Text);
+        entry :=Cells[Y,0];
+        if (Length(IndexTable) > entry) then
+           IndexRowData:= IndexTable[entry]
+        else IndexRowData:= 0;
+
+         I := 1;
+
+        if (IndexRowData <> 0) then begin
+          for X := 1 to Length(ColumnTypeDefinition) do begin
+            if ColumnTypeDefinition[X] = 's' then begin
+              Text:=DBRows.Data[IndexRowData-1].Values['text'+IntToStr(I)];
+              SetString(Y,X-1,Text);
               I:=I+1;
+              if (LastIndexStringColumns = X) then
+                Break;
             end;
           end;
-          DBRows.Delete(IndexRowData);
         end;
+
       end;
 
@@ -203 +216 @@
 
     end;
+  end;
+end;
+
+//create table index = entry, value = Index-1 DBRows, notfound = 0
+procedure TDBCExport.CreateIndexTable(var DbRows: TDbRows);
+var
+ i: integer;
+ Count,entry: integer;
+begin
+  try
+     Count:=DBRows.Count;
+     for i:=1 to Count do begin
+       entry:=StrToInt(DBRows.Data[i-1].Values['entry']);
+
+       if (i =127) then
+         SetLength(IndexTable,entry+1);
+
+       if (Length(IndexTable)-1 < entry) then
+         SetLength(IndexTable,entry+1);
+
+
+       IndexTable[entry]:=i;
+
+    end;
+  except
   end;
 end;