PHP規(guī)范TXT文件

來源：ymlon ?? 更新時間：2019-11-28 23:15:22 ?? 編輯：用戶1gt2d ?? 瀏覽：350

$dw = "支|瓶|片|粒|盒|克|袋|包|g|G|ml|mg";

$find = array("香附子 克","復(fù)方氨酚烷胺膠囊 片");

$replace = array("香附子 克 無規(guī)格","復(fù)方氨酚烷胺膠囊 片 無規(guī)格");

$ ?= '藥品報增報損表';

$reg? ?= '/起始日期(.*?)報增/';

$reg2? ?= '/名稱(.*?)原因/';

$reg3? ?= '/(名稱|藥品報增|起始日期).*?/';

$file_path = "2017.txt";

$WriteStr = '';

$count = 0;

$allcount = 0;

if(file_exists($file_path)){

$file_arr = file($file_path);

for($i=0;$i

//if($ ?== $file_arr[$i]) break;

if (!preg_match($reg3,$file_arr[$i])){

$allcount++;

$file_arr[$i] = str_replace($find,$replace,$file_arr[$i]);

$reg4 = "/(\S+)\s?($dw)\s?(\S*)\s?(\d+)\s(\d+.\d{3})\s(\d+.\d{3})\s/u";

//土鱉蟲 克 1 20000 0.119

preg_match_all($reg4, $file_arr[$i], $arr);

if(!empty($arr[1])){

$count ++;

//if(in_array($arr[1][0],$tsArry)) print_r($arr);

//echo sprintf("%03s",$count)."--".sprintf("%-'-40s",$arr[1][0]).sprintf("%-'-10s",$arr[2][0]).sprintf("%-'-10s",$arr[3][0]).sprintf("%-'-10s",$arr[4][0]).sprintf("%-'-20s",$arr[5][0]).sprintf("%-'-20s",$arr[6][0])."
";

echo sprintf("%03s",$count)."--".$arr[1][0]."--".$arr[2][0]."--".$arr[3][0]."--".$arr[4][0]."--".$arr[5][0]."--".$arr[6][0]."--"."
";

$WriteStr .= sprintf("%03s",$count)."--".$arr[1][0]."--".$arr[2][0]."--".$arr[3][0]."--".$arr[4][0]."--".$arr[5][0]."--".$arr[6][0]."\r\n";

}else{

echo "================================".$file_arr[$i]."==========
";

}

//$OneArr = explode(' ', $file_arr[$i]);

//if(count($OneArr)

//echo $file_arr[$i]."
";

}

}

}

Wtxt($WriteStr);

echo "=====".$allcount."========".$ ;

function Wtxt($str){? ? //寫入文件

$myfile = fopen("TestPdfFile.txt", "w") or die("Unable to open file!");

fwrite($myfile, $str);

fclose($myfile);

}

與50位技術(shù)專家面對面20年技術(shù)見證，附贈技術(shù)全景圖

總結(jié)

以上是生活随笔為你收集整理的php txt,PHP规范TXT文件的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。