Hosts file i Vista x64

Umiddelbart kan man ikke se hosts filen i vista x64 versioner.
Men den er dér;) og der er også en måde at få den vist i folderoversigter

Den nemmeste måde er dog at lave et link (shortcut) til den på skrivebordet eller i en folder:
C:\Windows\System32\notepad.exe C:\Windows\System32\drivers\etc\hosts

Efterfølgende skal linket have administrator rettigheder (vælg egenskaber/properties og avanceret/advanced - og kryds "kør som administrator/run as administrator")

Linket skulle nu åbne hosts-filen i notepad og kunne redigeres/gemmes.

Optælling af ord - Word frequency Count .net /vb

Faldt over en kodestump, der benytter LINQ / IEnumerable til at tælle frekvensen af ord i en sætning.
Den er noget hurtigere end de ArrayList og loops, man (læs jeg) ellers kan finde på at bruge til det samme.

I dette tilfælde benyttes den til at hente unikke tags fra en String og returnere dem med eller uden ordfrekvensen.

Function CountWords(ByVal TheSentence As String, Optional ByVal Split_Str As String = ",", _
Optional ByVal Return_with_counts As Boolean = False)
Dim str As String = ""

Dim WordCounts As IEnumerable = From TheWords In TheSentence.Split(Split_Str).ToList, _
DistinctWords In TheSentence.Split(Split_Str).ToList.Distinct.ToList _
Where TheWords.ToUpper = DistinctWords.ToUpper _
Group TheWords By DistinctWords Into CountsOfLetters = Group _
Select Word = DistinctWords, Number = CountsOfLetters.Count

If Return_with_counts = True Then
For Each i In WordCounts
str = str & ", " & i.Word.ToString & "(" & i.Number.ToString & ")"
Next
Return str & ","
Else
For Each i In WordCounts
str = str & ", " & i.Word.ToString
Next

Return Right(str, Len(str) - 1)
End If


End Function

Der er et par mindre ændringer ifht den oprindelige version.