KMP 字符串处理算法

关于KMP,虽然已经理解了,并且能记住实现思路,但是在每次遇到需要写出代码的时候总会出现问题,整理一下代码,加深一下映像。

上代码:


#include <stdio.h>
#include <stdlib.h>
#include <string.h>


void get_next(char* str1,int next[])          // From the array next[];
{
    int i = 1, j = 0;                                // point1                             
    next[0] = strlen(str1);                   //  next[0] will not be used, so we can store the length of str1 in there.
    next[1] = 0;
    while(i<next[0])
    {
        if(j == 0||str1[i-1] == str1[j-1])
        {
            ++i;
            ++j;
            next[i] = j;
        }
        else
        {
            j = next[j];
        }
    }

}

int Index_kmp(char* str2,char* str1)    // 
{
    int len = strlen(str1)+1;
    int next[len];
    get_next(str1, next);
    for(int i = 0; i<len; i++)
    {
        printf("%d\t",next[i]);

    }
    puts("\n");
    int i = 1, j = 1;                       //====> point2
    while(i <= strlen(str2) && j <= next[0])
    {
        if(j ==0 || str2[i-1] == str1[j-1])
        {
            ++i;
            ++j;
        }
        else
        {
            j = next[j];
        }
    }
    if(j > next[0])
    {
        return i - next[0];               //match                maybe should return i-next[0]-1;
    }
    else
    {
        return -1;
    }

}


void main()
{
    char str2[] = "NLZASTSODJRFTQE";
    char str1[] = "ODJR";
    int num = Index_kmp(str2, str1);
    printf("%d\n",num);
}

#if 0     //  a better kmp algorithm
//kmp++

void Next(char*T,int *next){    
    int i=1;
    next[1]=0;
    int j=0;
    while (i<strlen(T)) {
        if (j==0||T[i-1]==T[j-1]) {
            i++;
            j++;
            if (T[i-1]!=T[j-1]) {
               next[i]=j;
            }
            else{
                next[i]=next[j];
            }
        }else{
            j=next[j];
        }
    }
}
$)AD#J=4.#:a a a a a a a b
  next1$)A#:0 1 2 3 4 5 6 7
  next2$)A#:0 0 0 0 0 0 0 7

#endif
 

Delphi 12.3 作为一款面向 Windows 平台的集成开发环境,由 Embarcadero Technologies 负责其持续演进。该环境以 Object Pascal 语言为核心,并依托 Visual Component Library(VCL)框架,广泛应用于各类桌面软件、数据库系统及企业级解决方案的开发。在此生态中,Excel4Delphi 作为一个重要的社区开源项目,致力于搭建 Delphi 与 Microsoft Excel 之间的高效桥梁,使开发者能够在自研程序中直接调用 Excel 的文档处理、工作表管理、单元格操作及宏执行等功能。 该项目以库文件与组件包的形式提供,开发者将其集成至 Delphi 工程后,即可通过封装良好的接口实现对 Excel 的编程控制。具体功能涵盖创建与编辑工作簿、格式化单元格、批量导入导出数据,乃至执行内置公式与宏指令等高级操作。这一机制显著降低了在财务分析、报表自动生成、数据整理等场景中实现 Excel 功能集成的技术门槛,使开发者无需深入掌握 COM 编程或 Excel 底层 API 即可完成复杂任务。 使用 Excel4Delphi 需具备基础的 Delphi 编程知识,并对 Excel 对象模型有一定理解。实践中需注意不同 Excel 版本间的兼容性,并严格遵循项目文档进行环境配置与依赖部署。此外,操作过程中应遵循文件访问的最佳实践,例如确保目标文件未被独占锁定,并实施完整的异常处理机制,以防数据损毁或程序意外中断。 该项目的持续维护依赖于 Delphi 开发者社区的集体贡献,通过定期更新以适配新版开发环境与 Office 套件,并修复已发现的问题。对于需要深度融合 Excel 功能的 Delphi 应用而言,Excel4Delphi 提供了经过充分测试的可靠代码基础,使开发团队能更专注于业务逻辑与用户体验的优化,从而提升整体开发效率与软件质量。 资源来源于网络分享,仅用于学习交流使用,请勿用于商业,如有侵权请联系我删除!
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值