LoadFromFile 打开文本连续制表符号合并成一个制表符合了 不想合并要怎么限制
在资料如下
条码 名称 规格 单位 进价 售价 库存
123 鼠标 个 32.00 36.00 100
其中规格没有资料所有‘鼠标’和‘个’中间有两个TAB但是用LoadFromFile打开这个文本两个制表符合并成一个了,如果不合并要怎么处理
谢谢大家了
[解决办法]
TStrings的DelimitedText分隔字符串函数略有问题的。我自己平时用我写的小函数:
// 自定义的分隔字符串函数,以cSplit为分隔符int __stdcall CrnListSplitString(String str, TStrings *pList, TCHAR cSplit){ pList->Clear(); if (str.IsEmpty()) return 0; if (str.Length() > 0 && str[str.Length()] == cSplit) str = str.SubString(1, str.Length() - 1); String strTemp; if (!str.Pos(cSplit)) { pList->Add(str); } else { while (str.Pos(cSplit)) { strTemp = str.SubString(1, str.Pos(cSplit) - 1); if (strTemp != String(cSplit)); pList->Add(strTemp); str = str.Delete(1, str.Pos(cSplit)); } if (str != String(cSplit) && strTemp.Length() > 0) pList->Add(str); } return pList->Count;}void __fastcall TForm1::Button1Click(TObject *Sender){ String str = "123 鼠标 个 32.00 36.00 00"; CrnListSplitString(str, Memo1->Lines, 0x09);}