- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我从客户那里读取文件,我需要处理读取的数据并删除一些不需要的字符。我的函数有效,但我正在尝试改进 FixData 函数以提高速度/性能和可维护性。
是否可以将多个 StringReplace 调用替换为仅循环一次数据并替换为所需的任何内容的调用?
我找不到 MultipleStringReplace 或类似的函数。
MCVE:
function FixData(const vStr:string):string;
var i:integer;
begin
Result:=vStr;
// empty string
if Result = #0 then Result := '';
// fix just New line indicator
if Result = #13#10 then Result := #8;
// remove 'end'/#0 characters
if Pos(#0, Result) > 0 then
for i := 1 to Length(Result) do
if Result[i] = #0 then
Result[i] := ' ';
// #$D#$A -> #8
if Pos(#$D#$A, Result) > 0 then
Result := StringReplace(Result, #$D#$A, #8, [rfReplaceAll]);
// remove 
if Pos('
', Result) > 0 then
Result := StringReplace(Result, '
', '', [rfReplaceAll]);
// #$A -> #8
if Pos(#$A, Result) > 0 then
Result := StringReplace(Result, #$A, #8, [rfReplaceAll]);
// replace " with temp_replacement value
if Pos(chr(34), Result) > 0 then
Result := StringReplace(Result, chr(34), '\_/', [rfReplaceAll]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var vStr,vFixedStr:string;
begin
vStr:='testingmystr:"quotest" - '+#0+' substr 
 new line '#$A' 2nd line '#$D#$A' end of data';
vFixedStr:=FixData(vStr);
end;
最佳答案
我想,您必须将字符串拆分为一组字符串(非分隔符和分隔符(模式)),然后替换数组中的项目,然后再次将它们组合起来。您将从较长的模式开始,然后转向较短的模式(针对模式内模式的安全检查),然后额外的运行将进行一个字符到一个字符的替换(因为它们可以就地完成并且不需要内存复制)。
双重复制,搜索缩放为 O(Length(input)*Count(Delimiters))。
类似于这个伪代码草案(未实现到最后一个点,只是为了让您有想法):
由于您的模式很短,我认为线性搜索就可以了,否则需要更优化但复杂的算法: https://en.wikipedia.org/wiki/String_searching_algorithm#Algorithms_using_a_finite_set_of_patterns
将其哈希为您认为合适的更小的函数,以便于理解/维护。
Type TReplaceItem = record (match, subst: string; position: integer);
var matches: array of TReplaceItem;
SetLength(matches, 3);
matches[0].match := '
'; // most long first;
matches[0].subst := '';
matches[1].match := #$D#$A; // most long first;
matches[1].subst := #8;
matches[2].match := #34; // most long first;
matches[2].subst := '\_/';
sb := TStringBuilder.Create( 2*Length(InputString) );
// or TList<String>, or iJclStringList of Jedi CodeLib, or TStringList... depending on performance and preferences
// Capacity parameter is for - warming up, pre-allocating memory that is "usually enough"
try
NextLetterToParse := 1;
for I := Low(matches) to high(matches) do
matches[I].position := PosEx(matches[I].match, InputString, NextLetterToParse );
While True do begin
ClosestMatchIdx := -1;
ClosestMatchPos := { minimal match[???].Position that is >= NextLetterToParse };
ClosestMatchIdx := {index - that very [???] above - of the minimum, IF ANY, or remains -1}
if ClosestMatchIdx < 0 {we have no more matches} then begin
//dump ALL the remaining not-yet-parsed rest
SB.Append( Copy( InputString, NextLetterToParse , Length(InputString));
// exit stage1: splitting loop
break;
end;
// dumping the before-any-next-delimiter part of not-parsed-yet tail of the input
// there may be none - delimiters could go one after another
if ClosestMatchPos > NextLetterToParse then
SB.Append( Copy( InputString, NextLetterToParse, ClosestMatchPos-NextLetterToParse);
// dumping the instead-of-delimiter pattern
SB.Append( matches[ ClosestMatchIdx ].Subst );
ShiftLength := (ClosestMatchPos - NextLetterToParse) + Length(matches[ ClosestMatchIdx ].Match);
// that extra part got already dumped now
Inc( NextLetterToParse, ShiftLength);
for I := Low(matches) to high(matches) do
if matches[I].position < NextLetterToParse then
matches[I].position := PosEx(matches[I].match, InputString, NextLetterToParse );
// updating next closest positions for every affected delimiter,
// those that were a bit too far to be affected ( usually all
// but the one being dumped) need not to be re-scanned
end; // next stage 1 loop iteration
现在我们有一个容器/数组/列表/任何由不匹配的 block 和替换的模式组成的东西。除了就地一字符替换之外。是时候合并并进行最后一次扫描了。
Stage2String := SB.ToString();
finally
SB.Destroy;
end;
for I := 1 to Length( Stage2String ) do
case Stage2String[I] of
#0: Stage2String[I] := #32;
#10, #13: Stage2String[I] := #8;
// BTW - ^M=#13=#$D sometimes can be met without trailing ^J=#10=#$A
// that was the end-of-line char used in old Macintosh text files
else ; // do nothing, let it stay as is
end;
Result := Stage2String;
关于string - 如何改进多次 StringReplace 调用?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34769953/
我对编码还比较陌生,但并非完全没有经验。处理有关金融计算器的学校作业。如果你们中的任何人可以查看我的代码以了解不良做法/可能的改进等,那就太好了。 我确实添加了一个“动画”启动(有很多 printf
小目标Trick 论文链接: https://paperswithcode.com/paper/slicing-aided-hyper-inference-and-fine-tuning 代码链接:h
if (firstPositionCpc && (firstPosition > 0 && firstPositionCpc 0 && topOfPageCpc 0 && firstPageCpc
我有 2 个表:“packages”和“items”。 “packages”有以下列:pack_id | item_id “items”有以下列......:item_id |输入 一个包可以有多个
我目前有一个 Pandas Dataframe,我在其中执行列之间的比较。我发现一种情况,在进行比较时存在空列,由于某种原因比较返回 else 值。我添加了一个额外的语句来将其清理为空。看看我是否可以
我正在处理一个查询,通过首先舍入它们的主要日期时间键来连接一个数据库中的多个表。数据库包含来自 openhab 的性能数据,每个表只有一个名为 Time 的主日期时间行和一个名为 Value 的值行。
问候 我有一个程序创建一个类的多个实例,在所有实例上运行相同的长时间运行的 Update 方法并等待完成。我从 this question 开始关注 Kev 的方法将更新添加到 ThreadPool.
我想在下学期的类(class)中取得领先,所以我制作了这个基本版本的 Blackjack 来开始理解 C 的基础知识,我希望您有任何想法可以帮助我更好地理解 C 和其正常的编码实践。 C 中的很多东西
我有一个要求,比如: 给定一个数组,其中包含随机数。需要输出元素出现的次数,有自带解决方案: var myArr = [3,2,1,2,3,1,4,5,4,6,7,7,9,1,123,0,123];
这是我的数据库项目。 表user_ select id, name from user_; id | name ----+---------- 1 | bartek 2 | bartek
我已经完成了一个小批量脚本来调整(动态)一些图像的大小: for a in *.{png,PNG,jpg,JPG,jpeg,JPEG,bmp,BMP} ; do convert "$a" -resiz
是否有更 pythonic 的方法来执行以下代码?我想在一行中完成 parsed_rows 是一个可以返回大小为 3 或 None 的元组的函数。 parsed_rows = [ parse_row(
关闭。这个问题是opinion-based .它目前不接受答案。 想要改进这个问题? 更新问题,以便 editing this post 可以用事实和引用来回答它. 关闭 9 年前。 Improv
下面的代码完成了我想要的,但还有其他更像 python 风格的方式吗? 文件格式: key1:value1,key2:value2,... key21:value21,key22:value22,..
如果两个英文单词只包含相同的字母,则它们是相似的。例如,food 和 good 不相似,但 dog 和 good 相似。 (如果A与B相似,则A中的所有字母都包含在B中,B中的所有字母都包含在A中。)
我有以下结构来表示二叉树: typedef struct node *pnode; typedef struct node { int val; pnode left; pnode
我有一个区域,它由受约束的 delaunay 三角剖分表示。我正在解决在两点之间寻找路径的问题。我正在使用 Marcelo Kallmann 提供的论文作为解决此问题的引用点。然而,而不是使用 Kal
如果我需要检查文本(字符串)中是否存在单词 A 或单词 B,如果我这样做会有性能差异: if(text.contains(wordA) || text.contains(wordB)) 要使用一些正则
Adjust To 我有上面这个简单的页面,上面有一个标签和一个文本框。我想在文本框中输入文本。 对我有帮助的 XPATH 是 //*[contains(tex
以下伪代码的elisp代码 if "the emacs version is less than 23.1.x" do something else something-else 写成 (if
我是一名优秀的程序员,十分优秀!