在F＃中具有轻减价属性的情况下，如何按字符串将字符串列表拆分？

问题描述

我有一个使用电报聊天机器人与其用户进行交互的工具。

电报限制呼叫速率，因此我使用了定期刷新的队列系统。

因此，当前代码非常基础：

// flush the message queue
let flushMessageQueue() =
    if not messageQueue.IsEmpty then       <- messageQueue is a ConcurrentQueue

        // get all the messages
        let messages =
            messageQueue
            |> Seq.unfold(fun q ->
                match q.TryDequeue () with
                | true,m -> Some (m,q)
                | _ -> None)

        // put all the messages in a single string
        let messagesString = String.Join("\n",messages)

        // send the data
        client.SendTextMessageAsync(chatId,messagesString,ParseMode.Markdown)
        |> Async.AwaitTask
        |> Async.RunSynchronously
        |> ignore

这是定期调用的，而写为：

// broadcast message
let broadcastMessage message =
    messageQueue.Enqueue(message)
    printfn "%s" (message.Replace ("```",String.Empty))

但是随着消息变得越来越复杂，同时出现了两个问题：

输出的一部分是带有简单markdown的格式化文本：

• 在```部分之间包裹了一些线段
• 在某些行中也有一些```部分
• 文本为UTF-8，并使用一堆符号

一些文本示例可能是：

```
this is a group of lines
with one,or many many lines
```
and sometimes there are things ```like this``` as well

然后...我发现Telegram也将邮件大小限制为4kb

所以，我想到了两件事：

• 我可以使用“打开/关闭”状态来保持状态，并从队列中拉出，根据状态将每行包装在三行后勾中，然后推入另一个队列，该队列将用于制作4kb的块。
li>
• 我可以继续从重新格式化的队列中获取消息并进行汇总，直到达到4kb或队列末尾并循环为止。

在F＃中是否有一种优雅的方法来做到这一点？ 我记得看到一个片段，其中使用了一个收集函数来聚合数据直到达到一定大小，但是它看起来效率很低，因为它正在收集line1，line1 + line2，line1 + line2 + line3 ...，然后用合适的尺寸。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）