11

这是我用来解析我的电子邮件的代码。如果它们与特定日期匹配,我想将它们添加到其他电子邮件列表中,然后将其制作成一个平面文件:

outfile = "C:\Temp\emails.csv"
$olFolderInbox = 6
$ol = new-object -comobject "Outlook.Application"
$mapi = $ol.getnamespace("mapi")
$inbox = $mapi.GetDefaultFolder($olFolderInbox)
$msgs = $inbox.Folders.Item("root")
$list1 = @()
foreach($message in ($msgs.items))
{
    if($message.ReceivedTime -gt $(get-date).adddays(-14))
    {
        $list1 += "$($message.Subject);$($message.ReceivedTime);$($message.Body.Replace("`n",", "))"
    }
}
if(Test-Path $outfile)
{
    Remove-Item $outfile
    Add-Content $outfile $list1
}
else
{
    Add-Content $outfile $list1
}

我遇到的问题是,replace 语句$message.Body.Replace("`n",", ")实际上并没有删除换行符,并且文件没有正确创建。有没有办法确认正文部分的全部内容变成单行?

我已经确认该$message.body对象是一个字符串,所以我不确定为什么这不起作用。

4

2 回答 2

30

评论者指向 return `r,也许应该单独替换那个特殊字符。猜测这可以通过 .replace() 方法和一些正则表达式来完成。或者更简单(我承认我很笨拙)在 $list1 += 行之前使用另一个变量,例如:

$bod = $message.body -replace "`n",", " -replace "`r",", "

矫枉过正,但这是一个从头开始的小例子。我建议您添加 $y 以更轻松地操作消息正文。

$x = new-object -type psObject
$x | add-member memburr1 -membertype noteproperty -value "no trouble here"
$x | add-member memburr2 -membertype noteproperty -value "uh `n oh `r spaghettio"

$y = $x.memburr2 -replace "`n",", " -replace "`r",", "

$z = @()
$z += "$($x.memburr1);$y"

如果这没有帮助,我会很好奇输出中有问题的换行符之前和之后出现的内容。

编辑:或使用 .replace() 方法两次:

$x.memburr2.replace("`n",", ").replace("`r",", ")
于 2013-02-05T05:05:18.607 回答
6

以上都不适合我。起作用的是:

$foo = [string]::join("",($foo.Split("`n")))
于 2020-07-12T21:18:09.060 回答