[求助]字符串指定位置增加字符

hdlyt11

谁能帮忙写个小程序，框选图中所有单行文字，搜索出含有分号的单行文字，并在其第一个位置加上字符B，在第四个位置加上字符T，多谢。例如：“356；256”，运行程序后变成“B356；T256”

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

rongyifei

ads_name ssName;
  struct resbuf *pRb;
  pRb=acutBuildList(0,"TEXT",NULL);
  if (acedSSGet(NULL,NULL,NULL,pRb,ssName)!=RTNORM)
  {
   acutRelRb(pRb);
   return;
  }
  acutRelRb(pRb);
  long ssLength;
  ads_name eName;
  acedSSLength(ssName,&ssLength);
  AcDbObjectId ObjID;
  AcDbEntity *pEnt=NULL;
  AcDbText *pTxt=NULL;
  CString strTxt;
  for (long i=0;i<ssLength;i++)
  {
   acedSSName(ssName,i,eName);
   acdbGetObjectId(ObjID,eName);
   acdbOpenAcDbEntity(pEnt,ObjID,AcDb::kForRead);
   pTxt=AcDbText::cast(pEnt);
   if (pTxt==NULL)
   {
    pEnt->close();
    continue;
   }
   strTxt.Format(_T("%s"),pTxt->textString());
   if (strTxt.Find(_T(";"))>=0 || strTxt.Find(_T("；"))>=0)
   {
    if (strTxt.GetAt(0)!='B' && strTxt.GetAt(6)!='T')
    {
     strTxt.Insert(0,'B');
     strTxt.Insert(5,'T');
     pTxt->upgradeOpen();
     pTxt->setTextString(strTxt);
    }
   }
   pTxt->close();
   pTxt=NULL;
   pEnt=NULL;
  }
  acedSSFree(ssName);

hdlyt11

好，多谢了，哈哈，还是论坛好，不会被被骂俺太懒。

hdlyt11

另外怎样将2d25+(2d12)改为4d25?还请不吝赐教。

hdlyt11

也就是用字符串的第一个数字加上左括号后面的第一个数字作为新字符串的第一个数字，加号及后面的都删掉

hdlyt11

同时可以吧"2d25+(2d12);2d25"改为"4d25;2d25"

hdlyt11

也就是说不能删除分号后面的文字