Экспорт комментариев на PHP в WordPress из текстового файла.

Файл boris2.ini:
$user
$pwd
$database_name

wp.txt - все комменты разделены тегом <comment>.

Файл wordpress.php:


echo "<br>подкл к БД2...";
  
$file_ini = file("boris2.ini");
$host="localhost";
$user=trim($file_ini[0]);
$pwd=trim($file_ini[1]);
$database_name=trim($file_ini[2]);
$db=mysql_connect($host,$user,$pwd);
echo "<br>   {$database_name} - {$user} - {$pwd} <br>";
mysql_select_db($database_name,$db); 
mysql_query ('SET NAMES utf8');
$file_ex = implode('',file("wp.txt"));

$comment_post_ID=258;

// [url]http://oknet.md/wp/wordpress.php[/url]
echo "<br>-------------<br>";
$array = explode("<comment>",$file_ex); // первая строка с разделами форума

// print_r ($array);

 $numMinutes = 0;

foreach ( $array as $value ) {
$numMinutes = $numMinutes+1;    
    
     if (trim($value)<>""){ // в БД пишем тему
 
 $date1 = date("Y-m-d H:i:s");
 $date1 = date('Y-m-d H:i:s', strtotime("+".$numMinutes." minutes", strtotime($date1)));
 
 
//$value = iconv ($value , "CP1252", "UTF-8" );
 
    // echo "<br>comment: ".$date1." - ".$value."<br>";
      $result = mysql_query("INSERT INTO wp_comments
      (comment_post_ID, comment_author_IP, comment_date, comment_date_gmt, comment_content, comment_approved, comment_agent) 
      VALUES
      ('$comment_post_ID', '31.31.31.31', '".$date1."', '".$date1."', '".$value."', '1', 'Mozilla/5.0')")
      or die("Invalid query: " . mysql_error()); 
      }
} // конец foreach value

  // wp_posts - ID - comment_count
  $result = mysql_query("SELECT * FROM wp_comments WHERE comment_post_ID ='$comment_post_ID'")
  or die("Invalid query: " . mysql_error()); 
$number = MYSQL_NUMROWS($result);
echo "<br>всего комментов: ".$number;
mysql_query("UPDATE `wp_posts` SET `comment_count`='$number' WHERE ID='$comment_post_ID'")
 or die("Invalid query: " . mysql_error());

mysql_close($db);        
echo "<br>закрыли БД";

Sub Комменты() ' Комменты Макрос
Application.Browser.Previous
Dim i As Long
For i = 2 To Documents(1).Paragraphs.Count
stoka = ActiveDocument.Paragraphs(i).Range.Text
длина = Len(stoka)
If длина > 30 Then
ActiveDocument.Paragraphs(i).Range.Text = "<comment>" + stoka
End If
Next
End Sub