在流中查找任意字串

原创 2004年04月26日 12:17:00

开发中有时需要在流中查找某个字串,这些字串有可能是ASCII表后半部分或混杂.但是网上提供的例程效果不佳而且代码冗长.

后来自己抽个时间写了一个,代码极少,效率很高.仅供各位参考:


function ScanStream(T:Tstream;S:String):integer;
var i,j:integer;
    p:Pchar;
begin
  getMem(p,T.size);//分配内存
  T.ReadBuffer(p^,t.Size );//读

  for i:=0 to T.Size -1 do begin
    for j:=1 to length(S) do
      if p[i+j]<>S[j] then break;//有一个不同即退出
    if j>length(S) then begin //依据
      result:=i+1;
      break; //完成
    end;
  end;
  FreeMem(p);
end;

 

在字符串中查找子串

/* *在字符串中查找子串 * 题目描述:给定一个字符串A,要求在A中查找一个子串B。 * 如A="ABCDF",要你在A中查找子串B=“CD”。 * 实现substr库函数的功能 */ ...
  • wuwuwuwuwuwuwuwu
  • wuwuwuwuwuwuwuwu
  • 2012年08月18日 11:05
  • 1336

Delphi_搜索字符串在流中的位置

Delphi_搜索字符串在流中的位置(*//标题:搜索字符串在流中的位置说明:适用于文件搜索等设计:Zswang支持:wjhu111@21cn.com日期:2004-03-21//*)(*//====...
  • lij3024
  • lij3024
  • 2006年05月12日 14:30
  • 1106

字符串中关键字的查找

在下列一组文本中查找出含out的行:
  • Dearye_1
  • Dearye_1
  • 2017年12月28日 16:59
  • 56

在string中查找字符或字符串

// str_find.cpp : 定义控制台应用程序的入口点。 // #include "stdafx.h" #include #include int main() { usi...
  • zhouzhenhe2008
  • zhouzhenhe2008
  • 2014年11月07日 23:44
  • 2094

Word查找的通配符和特殊字符!

通配符主要有: *代表0至任意个字符; ^?代表任意字符; ^#代表任意数字; ^$代表任意字母; ^&代表查找内容(在替换时使用)。 其他段落标记、人工换行符、制表符等等应该称为特殊字符...
  • kevinhg
  • kevinhg
  • 2012年04月05日 12:52
  • 8656

Linux查找指定字符串的命令

Linux查找指定字符串的命令
  • skykingf
  • skykingf
  • 2013年09月13日 16:57
  • 1066

给定两个字符串str1和str2,查找str2在str1中出现的位置

给定string str1和string str2,编写一个库函数,返回str2在str1中的位置。 如:str1为"ABCDLANCEXYZ",str2为"LANCE",则返回位置5。如果没有找到...
  • u010318270
  • u010318270
  • 2017年11月18日 15:29
  • 212

Excel 中查找和替换字符

最近一两个月,处理了大量的Excel表格,具体的目标包括筛选出包含特定字符串的行,查找某个值是否在表中存在等。工作中积累了大量使用Excel的经验,想记下来,却一直没有时间。今天促成动笔因素的还是因为...
  • gracexu
  • gracexu
  • 2007年11月07日 15:15
  • 7192

字符串的查找:朴素查找算法和KMP算法

Q:一个字符串A”abcabbcabcd”,要想知道里面是否包含另一个字符串a”abcd”?按照我们以前所学,无非就是设置i和j记录两个字符串的下标,将两个字符串同时遍历,如果A串的i和a串的j下标所...
  • ZzZzZeEnNgG
  • ZzZzZeEnNgG
  • 2017年10月18日 02:40
  • 135

字串查找

给定一个字符串A,要求在A中查找一个子串B。 如A="ABCDF",要你在A中查找子串B=“CD”。 char *strstr(const char *strSrc, const char *...
  • M771310443
  • M771310443
  • 2014年04月25日 20:21
  • 251
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在流中查找任意字串
举报原因:
原因补充:

(最多只允许输入30个字)