ASP til ASP.NET – sortning af mapper.


Jeg har det med at kigge på diverse online communities, gerne dagligt, og kan jeg nå det så også flere gange dagligt. En sjov ting er, at der generelt er rigtig godt gang i ASP og PHP foraerne rundt omkring. Det er ikke skidt, men kunne man oplyse dem alle sammen om at der oftes findes en nemmere, hurtigere og sjovere vej ud af deres script problem, så kunne det være de ligefrem blev glade 🙂

Jeg har derfor valgt at dedikere noget tid til at svare på spørgsmål som kommer fra nogle af de bedste online communities i Danmark.

Der er en her der spørger på Eksperten: http://www.eksperten.dk/spm/837313

Løsningen er ikke så nem og ligetil i ASP/VBScript (se et eksempel på det her), men med lidt C# eller VB.NET, krydret med lidt LINQ, ja så er den sag hurtigt ude af verden. Se selv:

Download VB koden.
Download C# koden.

C# udgaven:

   1:  using System;
   2:  using System.Linq;
   3:  using System.Xml.Linq;
   4:  using System.IO;
   5:   
   6:  public partial class _Default : System.Web.UI.Page
   7:  {
   8:      protected void Page_Load( object sender, EventArgs e )
   9:      {
  10:          //Få vores mapper ud i et array
  11:          DirectoryInfo[] dirInfo = new DirectoryInfo( @"C:\Users\danielmf\Documents" ).GetDirectories();
  12:   
  13:          var query = from dirs in dirInfo
  14:                      orderby dirs.LastWriteTime
  15:                      select dirs;
  16:   
  17:          XDocument xDoc = new XDocument(
  18:              new XElement( "mapper", from singleDir in query
  19:                                     select new XElement("mappe", 
  20:                                         new XAttribute("sidstSkrevetTil", singleDir.LastWriteTime),
  21:                                         new XElement("navn", singleDir.Name))
  22:                                     )
  23:              );
  24:   
  25:          Response.Write( xDoc );
  26:      }
  27:  }

VB udgaven:

   1:  Imports System
   2:  Imports System.Linq
   3:  Imports System.Xml.Linq
   4:  Imports System.IO
   5:   
   6:  Partial Class _Default
   7:      Inherits System.Web.UI.Page
   8:   
   9:      Public Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
  10:          'Få vores mapper ud i et array
  11:          Dim dirInfo() As DirectoryInfo = New DirectoryInfo("C:\Users\danielmf\Documents").GetDirectories()
  12:   
  13:          Dim query = From dirs In dirInfo _
  14:                      Order By dirs.LastWriteTime _
  15:                      Select dirs
  16:   
  17:          Dim xDoc As New XDocument(New XElement("mapper", From singleDir In query _
  18:                                                           Select New XElement("mappe", New XAttribute("sidstSkrevetTil", singleDir.LastWriteTime), New XElement("navn", singleDir.Name))))
  19:   
  20:          Response.Write(xDoc)
  21:   
  22:      End Sub
  23:   
  24:  End Class

Comments (3)
  1. Et af de store problemer med C# folk der forsøger at skrive VB er at de tit går galt i byen. Eks. har

  2. T says:

    Hvad er en sortning? Noget der mørklægges? 🙂

Comments are closed.

Skip to main content