开发者

Piping a list into the line in F#

Now I can add single value or tubles to the pipeline, my next question is can I add a list/array:

filesUnderFolder
|> Seq.map FileInfo  

my problem is I can't process this with pipeline |开发者_开发问答>, or can I?

Assembly.GetExecutingAssembly.GetFiles()
|>Array.map (fun file -> file.ReadAllText().Contains(keyword))


I do not understand what is your question about, but correct version is:

open System.Reflection
open System.IO

Assembly.GetExecutingAssembly().GetFiles() 
|> Seq.map (fun file -> new StreamReader(file)) 
|> Seq.map (fun file -> file.ReadToEnd().Contains(keyword)) 
|> Seq.iter(printfn "%s")

First you need GetExecutingAssembly and you need its result. So (). Second GetFiles(), return array of Stream, not FileInfo as you may expect. Because of this you have to wrap Stream to StreamWriter.

Thats it.


Looking at your comment are you trying to do this?

Assembly.GetExecutingAssembly().GetFiles() 
|> Seq.map (fun file -> 
    let stream = new StreamReader(file)
    file, stream.ReadToEnd().Contains(keyword))
|> Seq.filter snd
|> Seq.map fst
|> Seq.iter (fun file -> printfn "%s" file.Name)

Imperative style can be cleaner.

for file in Assembly.GetExecutingAssembly().GetFiles() do
    let stream = new StreamReader(file)
    if stream.ReadToEnd().Contains(keyword) then
        printfn "%s" file.Name
0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜