Changeset 340 for tools/dbc_export/DBCExport.pas

Timestamp:

Feb 27, 2010, 6:25:07 PM (15 years ago)

Author:

maron

Message:

Přidání parametru sql_query, připojení k databázi, nahrazování původních textů texty z databáze

File:

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

tools/dbc_export/DBCExport.pas

@@ -24 +24 @@
     NewDBCFileName: string;
     ColumnTypeDefinition: string;
+    SQLquery: string;
     DisplayData: Boolean;
     constructor Create(TheOwner: TComponent); override;
@@ -29 +30 @@
     procedure WriteHelp; virtual;
     procedure ShowDBC;
+    procedure LoadDBC;
+    procedure SaveDBC;
+    procedure ReplaceText;
+    function GetIDbyEntry(entry: integer; var DBRows: TDBRows): integer;
   end;
 
@@ -69 +74 @@
     Database.Hostname := GetOptionValue('t', 'host');
   end else Database.Hostname := 'localhost';
+  if HasOption('q', 'sql_query') then begin
+    SQLquery := GetOptionValue('q', 'sql_query');
+  end;
 end;
 
@@ -74 +82 @@
 begin
   ParseParameters;
+
+  LoadDBC;
+
   ShowDBC;
+
+  ReplaceText;
+
+  SaveDBC;
 
   // Stop program loop
@@ -105 +120 @@
   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
 end;
 
@@ -111 +128 @@
   X, Y: Integer;
   Text: string;
-  I: Integer;
-begin
-  DBC := TDBC.Create;
-  with DBC do begin
-    if FileExists(DBCFileName) then begin
-      LoadFromFile(DBCFileName);
-
-      // Load strings for string columns
-      for I := 1 to Length(ColumnTypeDefinition) do
-        if ColumnTypeDefinition[I] = 's' then
-          LoadColumnStrings(I - 1);
-
+begin
+  with DBC do begin
       // Display DBC data
       if DisplayData then
@@ -132 +139 @@
         WriteLn(Text);
       end;
-
-      SaveToFile(NewDBCFileName);
+  end;
+end;
+
+procedure TDBCExport.LoadDBC;
+var
+  I: Integer;
+begin
+  DBC := TDBC.Create;
+  with DBC do begin
+    if FileExists(DBCFileName) then begin
+      LoadFromFile(DBCFileName);
+
+      // Load strings for string columns
+      for I := 1 to Length(ColumnTypeDefinition) do
+        if ColumnTypeDefinition[I] = 's' then
+          LoadColumnStrings(I - 1);
+
     end else WriteLn('File ' + DBCFileName + ' not exists.');
+  end;
+end;
+
+procedure TDBCExport.SaveDBC;
+begin
+  with DBC do begin
+    SaveToFile(NewDBCFileName);
     Free;
   end;
+end;
+
+
+//function get data from database and replace text in dbc
+procedure TDBCExport.ReplaceText;
+var
+  DBRows : TDbRows;
+  Text: String;
+  X, Y, I: Integer;
+  IndexRowData: Integer;
+begin
+  with DBC do begin
+    if (SQLquery <> '') then begin;
+      Database.Connect;
+      DBRows := Database.Query(SQLquery);
+
+
+      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);
+              I:=I+1;
+            end;
+          end;
+          DBRows.Delete(IndexRowData);
+        end;
+      end;
+
+
+
+    end;
+  end;
+end;
+
+function TDBCExport.GetIDbyEntry(entry: integer; var DBRows: TDBRows): integer;
+var
+ i: integer;
+ Count: integer;
+begin
+  try
+     Count:=DBRows.Count;
+     for i:=0 to DBRows.Count - 1 do begin
+      if (StrToInt(DBRows.Data[i].Values['entry']) = entry) then begin
+        Result := i;
+        exit;
+      end;
+    end;
+  except
+  end;
+  Result := -1;
 end;