在Excel >255字符中为文本部分上色
本文关键字:文本部 Excel 字符 | 更新日期: 2023-09-27 18:02:55
我为第三方sw编写了一个插件,该插件将修改后的文本提取到Excel工作表中,然后在Excel中为更改的部分上色。只要每个文本段(=单元格内容)不超过255个字符,就可以工作。唉,这种情况可能而且确实偶尔会发生。
为了在Excel中识别更改的部分,我用<del>
resp包围它们。<add>
标签用于删除和添加文本。然后我给这些部分上色(并去掉周围的标签),像这样:
while (((string)cell1.Text).Contains("<del>"))
{
try
{
var pos = ((string) cell1.Text).IndexOf("<del>") + 1;
var pos2 = ((string) cell1.Text).IndexOf("</del>") + 1;
var txt = cell1.Characters[pos, (pos2-pos) + 9].Text;
txt = txt.Replace("<del>", "").Replace("</del>", "");
cell1.Characters[pos, (pos2-pos) + 9].Text = txt;
cell1.Characters[pos, txt.Length-3].Font.Color = -16776961;
}
catch
{
break;
}
}
我使用互操作,因为我发现它更容易工作,也因为我找不到任何像样的例子,如何做到这一点与OpenXML。然而,我知道Excel在单元格文本方面有其局限性,所以我愿意接受建议。
是否有一种方法来颜色单个单词在单元格中包含>255个字符使用互操作?
如果一切都失败了,我可能不得不创建一个带有表格的Word文档,在那里进行格式化,然后复制/粘贴到Excel(啊哈)。请帮我避免这种丑陋。
p。S:是的,修订摘要需要基于excel。
好了,我现在用OpenXML解决了这个问题。如果一个单元格包含要着色的文本,我将在该位置创建一个文本运行,第二次使用颜色运行包含受影响的文本,第三次返回默认值运行包含其余部分。
var xlsx = SpreadsheetDocument.Open(xlsPath, true);
var contents = xlsx.WorkbookPart.GetPartsOfType<SharedStringTablePart>().First();
foreach (SharedStringItem si in contents.SharedStringTable.Elements<SharedStringItem>())
{
if (si.Text != null)
{
XlHelper.ColorCellText(si, "del", new DocumentFormat.OpenXml.Spreadsheet.Color { Rgb = "FFFF0000" });
XlHelper.ColorCellText(si, "add", new DocumentFormat.OpenXml.Spreadsheet.Color { Rgb = "0000BF00" });
}
}
和XlHelper。ColorCellText方法:
public static void ColorCellText(SharedStringItem si, string TagName, DocumentFormat.OpenXml.Spreadsheet.Color col)
{
var newText = si.InnerText;
var startTag = string.Format("<{0}>", TagName);
var endTag = string.Format("</{0}>", TagName);
if (newText.Contains(startTag))
{
si.Text.Remove();
var lastpos = 0;
while (newText.Contains(startTag))
{
try
{
var pos1 = newText.IndexOf(startTag);
var pos2 = newText.IndexOf(endTag);
var txtLen = pos2 - pos1 - 5;
var it = string.Concat(newText.Substring(0, pos1), newText.Substring(pos1 + 5, txtLen),
newText.Substring(pos2 + 6));
var run = new Run();
var txt = new Text
{
Text = it.Substring(0, pos1),
Space = SpaceProcessingModeValues.Preserve
};
run.Append(txt);
si.Append(run);
run = new Run();
txt = new Text
{
Text = it.Substring(pos1, txtLen),
Space = SpaceProcessingModeValues.Preserve
};
var rp = new RunProperties();
rp.Append(col.CloneNode(true));
run.RunProperties = rp;
run.Append(txt.CloneNode(true));
si.Append(run.CloneNode(true));
newText = newText.Substring(pos2 + 6);
}
catch(Exception ex)
{
using (var sw = new StreamWriter(logFile, true))
{
sw.WriteLine("Error: {0}'r'n{1}", ex.Message, newText);
}
break;
}
}
if (newText.Length>=0)
{
var lastrun = new Run();
var lasttxt = new Text
{
Text = newText,
Space = SpaceProcessingModeValues.Preserve
};
lastrun.Append(lasttxt);
si.Append(lastrun);
}
}
}
Space = SpaceProcessingModeValues.Preserve
部分在这里是至关重要的,否则它将把所有三个部分粘合在一起并消除之间的空间。
我想我会研究一下这款EPPlus,因为它的"单元格内Richtext"功能听起来相当有希望。