各位老大：如何对Text指定行的关键字进行替换呢？

欢迎高手指点！

解决方案 »

  1.   

    有一个textBox控件，我要对指定行的某些关键字替换成“”。不知我描述清楚没有？
      

  2.   

    replace是可以替换，文本中可能有多个相同的关键字，程序要替换指定行的关键字啊。我现在替换已经完成了，就是不知道怎样把替换好字符串填写到指定行的指定位置。
      

  3.   

    Dim str As String
    Dim sz As String  '关键字str = Text1.SelText  '选择的文字replace(str,sz,"")
      

  4.   

    可以用TEXT1.SELTEXT属性,该属性是说被选择的文字,也是你说的被选的行
      

  5.   

    老兄，是指定行啊。我不想让编辑器有光标晃动的迹象。就像vb的代码编辑器一样，我输入一个对象打.这个对象的属性就出来了。如果我已经输入了几个字符，按Enter，这个对象的属性就会自动替换我已经输入的几个字符，而且没有光标晃动的痕迹。
      

  6.   

    '搞定，谢谢支持
    SendMessage(RTB.hwnd, EM_LINEINDEX, iRowIndex - 1, 0)
    '获取行第一个字符的编号
    RTB.SelStart = ipos + c.CurPos - 1
    RTB.SelLength = Len(c.CurrentChar)
    RTB.SelText = c.GetEnterKey
      

  7.   

    麻烦点的 还可以mid每个字... 然后换