本文章分享一篇关于DBM数据导入到mysql数据库方法，有需要的同学可以参考一下本实例。

首先说明一下，我以前使用PERL，保存文件 用DBM，有5万多条记录，每条记录有15个字段。现在想用MYSQL，要吧记录导过来。

第一步，将所有的DBM记录导入到了一个文本文件，每个字段之间用TAB分开(就是"t"),每条记录换行结束。

第二部，将数据读入数组，并且打开数据库和定义预处理如下：

代码如下

复制代码

$dbline=file("g:/allrecord.txt"); //将数据库记录读入到数组

$collen=array(8,50,80,20,20,30,3,20,1,1,20,35,35,35,2); #表里面每个字段的长度数值

$db=new i('localhost','me','mypass','allrecdb');

if(mysqli_connect_errno()) {

echo "Can not connect db!";

exit;

}

$q->query("SET names 'gb2312'");

$q="INSERT INTO customers VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)";

$s=$db->prepare($q); #预定义插入记录

//

数据库有15个字段，为了方便导入，已经设定全部类型为CHAR，长度从1到100不等,具体等同$collen的数值;

并且没有任何字段设置UNIQUE或者PRIMARY KEY；

在命令行用INSERT命令插入记录成功

//

代码如下

复制代码

foreach($dbline as $line) {

$rec=("t",trim($line));

//这里反复测试过，$rec数组有15个值，并且我都把它strval了

// for($j=0;$j

$rec[$j]=substr($rec[$j],0,$collen[$j]);

}

for($i=0;$i

$rec[$i]=strval($rec[$i]);

}

$s->bind_param("sssssssssssssss",$rec[0],$rec[1],$rec[2],$rec[3],$rec[4],$rec[5],$rec[6],$rec[7],$rec[8],$rec[9],$rec[10],$rec[11],$rec[12],$rec[13],$rec[14]);

$s->execute();

}

$s->close();

$db->close();

?>

经过几个小时的调试，发现任何字串超过字段长度就不能添加，所以做了如下处理。

1) 先把每个记录的每个字段的长度进行了处理，代码如下：

代码如下

复制代码

for($j=0;$j

$rec[$j]=substr($rec[$j],0,$collen[$j]);

}

2)再处理插入

代码如下

复制代码

$s->bind_param("sssssssssssssss",$rec[0],$rec[1],$rec[2],$rec[3],$rec[4],$rec[5],$rec[6],$rec[7],$rec[8],$rec[9],$rec[10],$rec[11],$rec[12],$rec[13],$rec[14]);

$s->execute();

这样就可以插入记录了。

目前剩下的问题是，任何带有汉字的记录，都不能插入(在命令行可以)。

查了资料，在命令行alter database crm character set 'gb2312',在脚本查询前加入$db->query("SET names 'gb2312'")

都没用。

也没找到my.ini去改default-character-set=gb2312

难道php5.5暂时不支持中文？

MYSQL太多稀奇古怪的提示，解决不了问题，所有装上了SQLITE，在命令行导入文本记录，发现了问题：

1)某些字段中存在换行符，但是在任何文本编译器中不换行或者不显示。这样会在导入的时候，1行变成2行，列参数自然不对了。

解决方案： 用str_replace($line,char(13));把每行内的换行符替换掉，然后把所有记录存入tmp.txt

2)再进行命令行的导入

代码如下

复制代码

sqlite3>.import tmp.txt customers

sqlite3> count(*) from cusomers;

57491

显示导入成功。

可见，批量导入的时候，一定要处理好那些隐藏的特殊字符。

由于时间关系，没有测试MYSQL的情况。晚上有空再确认一下同样方案是否可行。

本文原创发布php中文网，转载请注明出处，感谢您的尊重！