Changeset 634 for tools/WoWHeadLoader/WoWHeadLoader.lpr

Timestamp:

Dec 10, 2013, 4:49:25 PM (11 years ago)

Author:

maron

Message:

• Added: options from
• Fixed: some bugs

File:

• tools/WoWHeadLoader/WoWHeadLoader.lpr (modified) (11 diffs)

tools/WoWHeadLoader/WoWHeadLoader.lpr

@@ -63 +63 @@
   Column2DB: array [1..6] of string = ('Description','Description','SubName','','','');
   ImportTable: integer = 6;
+  From: integer = 1;
 { TWoWHeadLoader }
 //   IdHTTP1.Request.UserAgent:= 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
@@ -73 +74 @@
 begin
   // quick check parameters
-  ErrorMsg:=CheckOptions('hsuptai','helpschemauserpasswordhostCharsetimporttable');
+  ErrorMsg:=CheckOptions('hsuptaif','helpschemauserpasswordhostCharsetimporttablefrom');
   if ErrorMsg<>'' then begin
     ShowException(Exception.Create(ErrorMsg));
@@ -109 +110 @@
     ImportTable := StrToInt(GetOptionValue('i', 'importtable'));
   end else ImportTable := 6;
+  if HasOption('f', 'from') then begin
+    From := StrToInt(GetOptionValue('f', 'from'));
+  end else From := 1;
 
   Database.Connect;
@@ -147 +151 @@
   WriteLn('  -a --Charset     Database Charset, default utf8');
   WriteLn('  -i --importtable Table import: TextAchievement=1,TextItem=2,TextCreature=3,TextGameObject=4,TextArea=5,TextQuest=6, default 6');
+  WriteLn('  -f --from        ID text begin importing');
 end;
 
@@ -168 +173 @@
   GetText(4,6);
   }
+
+//  GetText(3977,3);
+//  GetText(29265,3);
+
  // for t :=1 to Length(Group) do
-    for i := 1 to GetMaxID(Group[ImportTable]) do begin //GetMaxID('quest')
+    for i := From to GetMaxID(Group[ImportTable]) do begin //GetMaxID('quest')
       GetText(i,ImportTable);
-      write('.');
+   //   write('.');
     end;
+     write('Done!!!');
   //čekej před uzavřením
-  ReadLn;
+//  ReadLn;
 end;
 
@@ -195 +205 @@
      if (pos('<b style="color: red">This quest was marked obsolete',data) > 0) or (pos('<b style="color: red">This quest is no longer available',data) > 0) then begin
        foundtext:=false;
+       WriteLn('obsolete');
        Exit;
      end;
-     WriteLn();
-     WriteLn('guest='+IntToStr(Id));
 
 
@@ -264 +273 @@
     DBRows := Database.Query('SELECT * FROM  `TextQuest` WHERE  `Entry` ='+IntToStr(Id)+' AND  `Language` =0 ORDER BY  `TextQuest`.`VersionEnd` DESC ');
     if (DBRows.Count > 0) then begin
-      if (DBRows.Data[0].Values['VersionEnd'] = IntToStr(ImportedVersion)) then Exit;  //konec pokud už tam text je
+      if (DBRows.Data[0].Values['VersionEnd'] = IntToStr(ImportedVersion)) then begin
+        WriteLn('Allready importet');
+        Exit;  //konec pokud už tam text je
+      end;
       if (
         CompareStrings(DBRows.Data[0].Values['Title'],textname) and
@@ -290 +302 @@
         Database.Query('UPDATE  `TextQuest` SET  `VersionEnd` = '+IntToStr(ImportedVersion)+' WHERE  `Take` = '+DBRows.Data[0].Values['Id']+' AND `Entry` ='+IntToStr(Id)+';');
         UpdateTranslated('textquest');
+        WriteLn('update');
         Exit;   //konec: text je stejný upravili se jenom výsledné verze
       end;
@@ -336 +349 @@
       +SqlPre(textobjective4)+', '
       +'0,  NULL, 1,0,NULL,'+IntToStr(ImportedVersion)+','+IntToStr(ImportedVersion)+',NOW())');
+      WriteLn('insert');
 
       //TODO: zkopírovat přeložený text pokud je celý anglický přeložený
@@ -373 +387 @@
      on E: EIdHTTPProtocolException do
      begin
-       if E.ErrorCode = 404 then
+       if E.ErrorCode = 404 then begin
          foundtext := false;
+         WriteLn('notfound');
+       end;
 
      end;
@@ -439 +455 @@
      end;
      if ('npc' = Group[TextType]) then begin
-       textdescription := skipto('<',textname);
-       textdescription := TextStringReplace(Copy(textdescription,0,Pos('>',textdescription)-1));
+       if not (Pos('src="',textname) >0) then begin
+         if (Pos('>',textname) > 0) then
+           textdescription := skipto('<',textname);
+         textdescription := TextStringReplace(Copy(textdescription,0,Length(textdescription)-1));
+       end;
        if (Pos('<',textname) >0) then
-         textname := TextStringReplace(Copy(textname,0,Pos('<',textname)-1));
+          textname := TextStringReplace(Copy(textname,0,Pos('<',textname)-1));
      end;
      textname:=DelHtmlTags(textname);