>>>>In my FTP class, I have two formats to read FTP directory content. Here are the two scenarios:
>>>>
>>>>
>>>> ' This is the standard
>>>> ' total 4696
>>>> ' drw-rw-rw- 1 user group 0 Feb 6 15:46 .
>>>> ' drw-rw-rw- 1 user group 0 Feb 6 15:46 ..
>>>> ' -rw-rw-rw- 1 user group 4825 May 3 2010 Account.png
>>>> ' -rw-rw-rw- 1 user group 5242 May 3 2010 Administration.png
>>>> ' -rw-rw-rw- 1 user group 4117 Apr 17 2011 Agent.png
>>>> ' -rw-rw-rw- 1 user group 1402 Dec 30 2005 AmazonCA.gif
>>>> ' -rw-rw-r-- 1 wliclus weblogic 308121 Jun 1 2011 tlv_01_jackk_2011615315_1185655_001_23327701.zip
>>>>
>>>> ' This is also another format we have to support
>>>> ' -r-xr-xr-x 1 owner group 78145990 Nov 4 2011 101.zip
>>>> ' -r-xr-xr-x 1 owner group 35492 Apr 14 2011 20110414.40E
>>>> ' -r-xr-xr-x 1 owner group 33583 Apr 14 2011 20110414.421
>>>> ' -r-xr-xr-x 1 owner group 40815 Apr 14 2011 20110414.483
>>>> ' -r-xr-xr-x 1 owner group 24836 Apr 14 2011 20110414.ARC
>>>> ' -r-xr-xr-x 1 owner group 4737 May 5 2011 4A16PBE1.txt
>>>> ' -r-xr-xr-x 1 owner group 4737 Jan 18 13:50 4A17A7B1.txt
>>>>
>>>>
>>>>The first one is the one that is commonly used. On one specific server, I am receiving the directly listing in the second scenario.
>>>>
>>>>So far, I have this code which parse the following component:
>>>>
>>>>
>>>> ' If this is a file
>>>> If lcLine.StartsWith("-") Then
>>>>
>>>> ' Get the character at position 42
>>>> lcCharacter = Mid(lcLine, 42, 1)
>>>>
>>>> ' If this is a space
>>>> If lcCharacter = " " Then
>>>> lcFile = Mid(lcLine, 56)
>>>> lnSize = Val(Mid(lcLine, 34, 8))
>>>> lcDate = Mid(lcLine, 43, 12)
>>>> Else
>>>> lcFile = Mid(lcLine, 60)
>>>> lnSize = Val(Mid(lcLine, 34, 14))
>>>> lcDate = Mid(lcLine, 47, 12)
>>>> End If
>>>>>>>>
>>>>So, I need to know if taking the file size from character 34 will always be good. This assume scenario #1. It takes the next 8 digits. As the second scenario starts reading the file size from character 34 but takes the next 14 digits.
>>>>
>>>>Scenario #1 would then allow to pick list file size up to 99,999,999 bytes, thus 99.999999 MB.
>>>>
>>>>This is based on the assumption that the directly listing returned by FTP servers always include a space between each component. Can someone confirms me if this is correct?
>>>>
>>>>Also, I would like to get the feedback on scenario #2 as to know if starting at character 34 would do as well or if that type of directly listing has been adjusted to support longer group which would then mean I would need to start reading the file size at character 38 instead of character 34 for this scenario.
>>>>
>>>>Any feedback on this issue would be appreciated.
>>>
>>>Gregory's regex is good. Or use string.Split(). Something like:
Imports System.Collections.Generic
>>>Imports System.Linq
>>>
>>>Namespace ConsoleApplication5
>>> Class Program
>>> Private Shared Sub Main(args As String())
>>> Dim typeA As New List(Of String)() From { _
>>> " drw-rw-rw- 1 user group 0 Feb 6 15:46 .", _
>>> " drw-rw-rw- 1 user group 0 Feb 6 15:46 ..", _
>>> " -rw-rw-rw- 1 user group 4825 May 3 2010 Account.png", _
>>> " -rw-rw-rw- 1 user group 5242 May 3 2010 Administration.png", _
>>> " -rw-rw-rw- 1 user group 4117 Apr 17 2011 Agent.png", _
>>> " -rw-rw-rw- 1 user group 1402 Dec 30 2005 AmazonCA.gif", _
>>> " -rw-rw-r-- 1 wliclus weblogic 308121 Jun 1 2011 tlv_01_jackk_2011615315_1185655_001_23327701.zip", _
>>> " -r-xr-xr-x 1 owner group 78145990 Nov 4 2011 101.zip", _
>>> " -r-xr-xr-x 1 owner group 35492 Apr 14 2011 20110414.40E", _
>>> " -r-xr-xr-x 1 owner group 33583 Apr 14 2011 20110414.421", _
>>> " -r-xr-xr-x 1 owner group 40815 Apr 14 2011 20110414.483", _
>>> " -r-xr-xr-x 1 owner group 24836 Apr 14 2011 20110414.ARC", _
>>> " -r-xr-xr-x 1 owner group 4737 May 5 2011 4A16PBE1.txt", _
>>> " -r-xr-xr-x 1 owner group 4737 Jan 18 13:50 4A17A7B1.txt" _
>>> }
>>>
>>> Dim result As IEnumerable(Of FTPInfo) = typeA.[Select](Function(x)
>>> Dim line As String() = DirectCast(x, String).Split(DirectCast(Nothing, Char()), StringSplitOptions.RemoveEmptyEntries)
>>> Return New FTPInfo() With { _
>>> Key .File = line(8), _
>>> Key .Size = line(4), _
>>> Key .Month = line(5), _
>>> Key .Day = line(6), _
>>> Key .YearOrTime = line(7) _
>>> }
>>>
>>>End Function)
>>> End Sub
>>> End Class
>>> Public Structure FTPInfo
>>> Public File As String
>>> Public Size As String
>>> Public Month As String
>>> Public Day As String
>>> Public YearOrTime As String
>>> End Structure
>>>End NamespaceDisclaimer: VB auto-converted from C#.....
>>
>>
>>
>>It just occurred to me that file names can contain spaces
>>
>>So, I modified the pattern
>>
>>string pattern = @"^(?<Permissions>\S+)\s+(?<Links>\d+)\s+(?<User>\w+)\s+(?<Group>\w+)\s+(?<FileSize>\d+)\s+(?<Month>\w+)\s+(?<Day>\d+)\s+((?<Year>\d{4})|(?<Time>\d+:\d+(:\d+)?))\s+(?<FileName>.+)$";
>>>>
>>It now parses the last line correctly
>>
>>string[] lines =
>> { @"drw-rw-rw- 1 user group 0 Feb 6 15:46 .",
>> @"drw-rw-rw- 1 user group 0 Feb 6 15:46 ..",
>> @"-rw-rw-rw- 1 user group 4825 May 3 2010 Account.png",
>> @"-rw-rw-rw- 1 user group 5242 May 3 2010 Administration.png",
>> @"-rw-rw-rw- 1 user group 4117 Apr 17 2011 Agent.png",
>> @"-rw-rw-rw- 1 user group 1402 Dec 30 2005 AmazonCA.gif",
>> @"-rw-rw-r-- 1 wliclus weblogic 308121 Jun 1 2011 tlv_01_jackk_2011615315_1185655_001_23327701.zip",
>> @"-r-xr-xr-x 1 owner group 78145990 Nov 4 2011 101.zip",
>> @"-r-xr-xr-x 1 owner group 35492 Apr 14 2011 20110414.40E",
>> @"-r-xr-xr-x 1 owner group 33583 Apr 14 2011 20110414.421",
>> @"-r-xr-xr-x 1 owner group 40815 Apr 14 2011 20110414.483",
>> @"-r-xr-xr-x 1 owner group 24836 Apr 14 2011 20110414.ARC",
>> @"-r-xr-xr-x 1 owner group 4737 May 5 2011 4A16PBE1.txt",
>> @"-r-xr-xr-x 1 owner group 4737 Jan 18 13:50 4A17A7B1.txt",
>> @"dr-xr-xr-x 1 owner group 0 Jan 18 13:50 Program Files or something else"
>> };
>>>>
>>
>>
>>How would yo do that with string split ? (gdr)
>
>Spoilsport ! OK, just to prove it's not impossible:
IEnumerable<FTPInfo> result = typeA.Select(x =>
> {
> string[] line = ((string)x).Split((char[])null, StringSplitOptions.RemoveEmptyEntries);
> string filename = string.Empty;
> line.Skip(8).Select(xx => filename = filename + " " + xx).Last();
> return new FTPInfo
> {
> File = filename,
> Size = line[4],
> Month = line[5],
> Day = line[6],
> YearOrTime = line[7]
> };
> });I see two little problems remain - sorry
(1) There is an extra space before the filename
(2) What do you do when there are consecutive or trailing spaces in the filename, eg
@"dr-xr-xr-x 1 owner group 0 Jan 18 13:50 Program Files or something else "
Gregory
