Question

我有2个单选按钮，两个都是粘贴，但是一个是粘贴开始，另一个是粘贴结束。基本上需要发生的是，当选择粘贴开始时，复制/剪切文本将粘贴在富文本框中找到的任何文本的开头。相反，当选择粘贴结束时，复制/剪切文本需要自动粘贴在文本末尾的富文本框中。这是我的代码:(现在只是普通的粘贴）

    if (rdbPasteBeginning.Checked)
        {
            if (rtbMain.SelectionLength > 0)
            {
                rtbMain.SelectionStart = rtbMain.SelectionStart + rtbMain.SelectionLength;
            }
            rtbMain.Paste();
        }

这是富文本框： http://prntscr.com/ar173t

Answer 1

如果您只使用文本，则无需粘贴方法。

您可以使用简单的代码获得相同的结果

coalesce.na <- function(x, ...) {
  x.len <- length(x)
  ly <- list(...)
  for (y in ly) {
    y.len <- length(y)
    if (y.len == 1) {
      x[is.na(x)] <- y
    } else {
      if (x.len %% y.len != 0)
        warning('object length is not a multiple of first object length')
      pos <- which(is.na(x))
      x[pos] <- y[(pos - 1) %% y.len + 1]
    }
  }
  x
}

如果您需要有关新行或空格的帮助，请发表评论

如何在富文本框或末尾粘贴文本的开头？

1 个答案: