PB通过特定字符解析数据

转自：https://www.pianshen.com/article/20401301530/

解析TXT文本）

 

//以行模式读取数据
ll_handle = FileOpen(ls_file, LineMode!, Read!, LockReadWrite!)
ll_file_ret = FileRead(ll_handle, ls_string)
Do Until ll_file_ret <= 0
ls_item_code = Trim(f_substr(ls_string, “|”, 1, i, j))
ls_item_name = Trim(f_substr(ls_string, “|”, 2, i, j))
ls_insur_code = Trim(f_substr(ls_string, “|”, 3, i, j))
ls_insur_name = Trim(f_substr(ls_string, “|”, 4, i, j))
ls_dose_units = Trim(f_substr(ls_string, “|”, 5, i, j))
ld_price = Long(Trim(f_substr(ls_string, “|”, 6, i, j)))
ls_charge_grade = Trim(f_substr(ls_string, “|”, 7, i, j))
ls_charge_class = Trim(f_substr(ls_string, “|”, 8, i, j))
ls_memo = Trim(f_substr(ls_string, “|”, 9, i, j))
ll_file_ret = FileRead(ll_handle, ls_string)
Loop

f_destr_new 参数和上图一致，此处不在说明！