------------------------------------------------------------------
void main(void)
{
    char fname[300], *p;

    GetFileName(fname); // 編集中のファイル名を得る
    p = strrchr(fname, '\\');
    SetClipText((p != NULL) ? p + 1: fname);
}
------------------------------------------------------------------

------------------------------------------------------------------
// 選択範囲内の行を逆順にするマクロ
    char **pl; // 各行のデータエリア
main()
{
    int i, j, stln, endln, lnnum;

    if(Block() != 1 && Block() != 2)
    {
      Beep();
      Message("行ソートする範囲を選択して下さい。");
      return; // 範囲が選択されていないなら
    }
    stln = SelLn(); // ソート開始行
    endln = Line(); // ソート最終行+1
    lnnum = endln - stln;
    if((pl = (char**)malloc(lnnum * sizeof(char*))) == NULL)
      return;
    GoLine(stln);
    LEdge();
    for(i = 0; i < lnnum && Tcode() > 0; i++)
    {
      if(KbHit() == 0x1b) // [ESC]が押されたら中断する
        break;
      if((pl[i] = (char*)malloc(Linelen() + 1)) == NULL)
      { // メモリが確保できないなら
        for(j = i - 1; j >= 0; j--)
          free(pl[j]);
        free(pl);
        return;
      }
      Getline(pl[i]);
      Down();
    }
    Delete();
    for(i = lnnum - 1; i >= 0; i--)
    {
      if(KbHit() == 0x1b) // [ESC]が押されたら中断する
        break;
      PutStr(pl[i]);
      Ret();
      LEdge();
    }
    for(i = lnnum - 1; i >= 0; i--) // 作業エリアのメモリ解放
      free(pl[i]);
    free(pl);
}
------------------------------------------------------------------

------------------------------------------------------------------
main()
{
    int wln[5];
    char wstr[5][300];
    int i, j, num;
    char sfile[300], wfile[300], *p, s[2000], sbuf[10000];
    FILE *sfp, *wfp;
    
    strcpy(sfile, "");
    if(OpenFileName(sfile, "*.txt") == -1 || strlen(sfile) < 1)
      return;
    if((sfp = fopen(sfile, "rb")) == NULL)
    { // 存在しないファイル
      strcpy(s, sfile);
      strcat(s, "\nこのファイルは存在しません。終了します。");
      Message(s);
      return;
    }
    if(GetStr("挿入行、挿入データを指定してください", s) < 0)
      return; // 文字列の入力がなければ NG
    for(i = 0, p = strtok(s, " "); i < 5*2 && p != NULL; i++, p = strtok(NULL, " "))
    {
      if((i % 2) == 0)
        wln[i/2] = Atoi(p);
      else
        sprintf(wstr[i/2], "%s\r\n", p);
    }
    num = i / 2;
    sprintf(wfile, "%s.add", sfile);
    if((wfp = fopen(wfile, "wb")) == NULL)
    { // 存在しないファイル
      strcpy(s, wfile);
      strcat(s, "\nこのファイルが開けません。終了します。");
      Message(s);
      fclose(sfp);
      return;
    }
    for(i = 1; fgets(sbuf, 10000, sfp) != NULL; i++)
    {
      fputs(sbuf, wfp);
      for(j = 0; j < num; j++)
      {
        if((i % wln[j]) == 0)
          fputs(wstr[j], wfp);
      }
    }
    fclose(wfp);
    fclose(sfp);
    sprintf(s, "作業は終了しました。\n結果は ファイル\n%s\nに保存されました。", wfile);
    Message(s);
}
------------------------------------------------------------------

-----------------------------------------------
    if(mode == 0)
      Top();
-----------------------------------------------
を
-----------------------------------------------
    if(mode == 0)
      Top();
    else
      LDEdge();
-----------------------------------------------

------------------------------------------------------------------
    strcpy(s, "\"--jobname=");
    strcat(s, fname);
    p = strrchr(s, '.');
    *p = '\0';
    strcat(s, " ");
    strcat(s, fname);
    strcat(s, "\"");
------------------------------------------------------------------

------------------------------------------------------------------
    strcpy(s, fname);
------------------------------------------------------------------
を
------------------------------------------------------------------
    strcpy(s, "--jobname=");
    strcat(s, fname);
    p = strrchr(s, '.');
    *p = '\0';
    strcat(s, " ");
    strcat(s, fname);
------------------------------------------------------------------

------------------------------------------------------------------
main()
{
    char *p, *p1, s[300], s1[300], sfile[300], wfile[300], wfile0[300], sbuf[10000];
    FILE *sfp, *wfp;
    int i, cnt, num;

    strcpy(sfile, "");
    if(OpenFileName(sfile, "*.txt") == -1 || strlen(sfile) < 1)
      return;
    if((sfp = fopen(sfile, "rb")) == NULL)
    { // 存在しないファイル
      strcpy(s, sfile);
      strcat(s, "\nこのファイルは存在しません。終了します。");
      Message(s);
      return;
    }
    if(GetStr("分割する行数とファイル名を入力してください", s) < 0)
      return; // 文字列の入力がなければ NG
    num = atoi(s);
    if((p = strchr(s, ' ')) == NULL)
    {
      fclose(sfp);
      return;
    }
    while(*p == ' ')
      p++;
    strcpy(s1, sfile);
    if((p1 = strrchr(s1, '\\')) != NULL)
    {
      *p1 = '\0';
      sprintf(wfile0, "%s\\%s", s1, p);
    }
    else
      strcpy(wfile0, p);
    
    for(i = cnt = 0; fgets(sbuf, 10000, sfp) != NULL; cnt++)
    {
      if(i == 0 || cnt >= num)
      {
        cnt = 0;
        if(i > 0)
          fclose(wfp);
        i++;
        sprintf(wfile, "%s-%d.txt", wfile0, i);
        if((wfp = fopen(wfile, "wb")) == NULL)
        {
          fclose(sfp);
          return;
        }
      }
      fputs(sbuf, wfp);
    }
    fclose(wfp);
    fclose(sfp);
    sprintf(s, "%s ファイルを\n%s-1.txt から %s-%d.txt\nまでの%d個に分割しました。",
             sfile, wfile0, wfile0, i, i);
    Message(s);
}
------------------------------------------------------------------

------------------------------------------------------------------
#define MAXLINE  500000 // 処理できるMAX行
main()
{
    char **pl; // 各行のデータエリア
    char s[500], sfile[300], gfile[300], sbuf[10000];
    FILE *sfp, *gfp;
    int i, j, cnt;
    
    strcpy(sfile, "");
    if(OpenFileName(sfile, "*.txt") == -1 || strlen(sfile) < 1)
      return;
    if((sfp = fopen(sfile, "rb")) == NULL)
    { // 存在しないファイル
      strcpy(s, sfile);
      strcat(s, "\nこのファイルは存在しません。終了します。");
      Message(s);
      return;
    }
    if((pl = (char**)malloc(MAXLINE * sizeof(char*))) == NULL)
      return;
    for(cnt = 0; fgets(sbuf, 10000, sfp) != NULL; cnt++)
    {
      if(cnt > MAXLINE || (pl[cnt] = (char*)malloc(strlen(sbuf) + 1)) == NULL)
      { // メモリが確保できないなら
        for(i = cnt - 1; i >= 0; i--)
          free(pl[i]);
        free(pl);
        fclose(sfp);
        return;
      }
      strcpy(pl[cnt], sbuf);
    }
    fclose(sfp);
    
    if((sfp = fopen(sfile, "wb")) == NULL) // 書き込むファイルを開く
      return;
    strcpy(gfile, sfile);
    strcat(gfile, ".log");
    if((gfp = fopen(gfile, "wb")) == NULL) // 書き込むファイルを開く
    {
      fclose(sfp);
      return;
    }
    for(i = 0; i < cnt; i++)
    {
      if(pl[i][0] == '\0')
        continue;
      for(j = 0; j < cnt; j++)
      {
        if(i != j && strcmp(pl[i], pl[j]) == 0)
        {
          fputs(pl[j], gfp);
          pl[j][0] = '\0';
        }
      }
    }
    for(i = 0; i < cnt; i++)
    {
      if(pl[i][0] != '\0')
        fputs(pl[i], sfp);
    }
    for(i = cnt - 1; i >= 0; i--) // 作業エリアのメモリ解放
      free(pl[i]);
    free(pl);
    fclose(sfp);
    fclose(gfp);
    Open(sfile); // 結果のファイルを開く
}
------------------------------------------------------------------