|
Title: Re: [amibroker] Re: How to sort lines in a file
Thanks guys,
I'll try this script!
I can just swap a column to get a sort for the first word/number. Its worth a try.
Thanks a lot!!!
herman
Friday, August 22, 2008, 6:42:05 PM, you wrote:
> Hi,
> I don't have AmiBroker on this computer. So, I can't test this out.
> But, see if the following article will do what you need. It is doing
> an alphabetical sort of the entire line, which means that the sort
> will effectively be on the first column.
> The easiest approach would probably be to just embed the script
> directly into your AFL wrapped in scripting tags as follows:
> EnableScript("_vbscript_");
> ... // Usual AFL code
> <%
> // script found at
> http://www.microsoft.com/technet/scriptcenter/resources/qanda/feb05/he
> y0225.mspx
> ... // Usual AFL code
> Or, for code reuse, you could create a function in a separate AFL
> file and #include it wherever needed. If neither of those work out,
> you could instead have the _vbscript_ stored in a .vbs file and choose
> to run it from AFL by calling out to wscript.
> Just in case you have trouble accessing the link provided, here is
> the actual script. Change the hard coded data file path
> (C:\Scripts\Computers.txt) to wherever your data file will be. If you
> want to parameterize it to specify where the data file is or which
> column to sort on, that should be do-able with some additional work.
> The behavior of the script is explained on the webpage at the link
> provided.
> Mike
> Const adVarChar = 200
> Const MaxCharacters = 255
> Const ForReading = 1
> Const ForWriting = 2
> Set DataList = CreateObject("ADOR.Recordset")
> DataList.Fields.Append "ComputerName", adVarChar, MaxCharacters
> DataList.Open
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set objFile = objFSO.OpenTextFile("C:\Scripts\Computers.txt",
> ForReading)
> Do Until objFile.AtEndOfStream
> strLine = objFile.ReadLine
> DataList.AddNew
> DataList("ComputerName") = strLine
> DataList.Update
> Loop
> objFile.Close
> DataList.Sort = "ComputerName"
> DataList.MoveFirst
> Do Until DataList.EOF
> strText = strText & DataList.Fields.Item("ComputerName") & vbCrLf
> DataList.MoveNext
> Loop
> Set objFile = objFSO.OpenTextFile("C:\Scripts\Computers.txt",
> ForWriting)
> objFile.WriteLine strText
> objFile.Close
> ------------------------------------
> Please note that this group is for discussion between users only.
> To get support from AmiBroker please send an e-mail directly to
> SUPPORT {at} amibroker.com
> For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
> http://www.amibroker.com/devlog/
> For other support material please check also:
> http://www.amibroker.com/support.html
> Yahoo! Groups Links
> <*> To visit your group on the web, go to:
> http://groups.yahoo.com/group/amibroker/
> <*> Your email settings:
> Individual Email | Traditional
> <*> To change settings online go to:
> http://groups.yahoo.com/group/amibroker/join
> (Yahoo! ID required)
> <*> To change settings via email:
> mailto:amibroker-digest@xxxxxxxxxxxxxxx
> mailto:amibroker-fullfeatured@xxxxxxxxxxxxxxx
> <*> To unsubscribe from this group, send an email to:
> amibroker-unsubscribe@xxxxxxxxxxxxxxx
> <*> Your use of Yahoo! Groups is subject to:
> http://docs.yahoo.com/info/terms/
__._,_.___
Please note that this group is for discussion between users only.
To get support from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com
For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/
For other support material please check also:
http://www.amibroker.com/support.html
![]()
__,_._,___
|