Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Sortera en array

Postades av 2004-09-28 16:52:43 - Benni Svensson, i forum asp - allmänt, Tråden har 5 Kommentarer och lästs av 438 personer

Jag har problem med att hitta nogonting som kan hjälpa mig.
Jag har en textfil(asp) som innehåller en lista på ord.

t ex
fan
djävlar
skit

osv
jag läser in detta med FSO
<code>
Const Filename = "../Styles/arraytest.asp" ' file to read
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")
Dim Filepath
Filepath = Server.MapPath(Filename)
if FSO.FileExists(Filepath) Then
Set TextStream = FSO.OpenTextFile(Filepath, ForReading, False, _
TristateUseDefault)

Dim Contents
Contents = TextStream.ReadAll

Response.write "<textarea name=""med"" cols=""50"" rows=""10"" Wrap=""Physical"">" & Contents & "</textarea><hr>"

TextStream.Close
Set TextStream = nothing
end if
Set FSO = nothing
</code>
Nu är det så, att innan detta läggs in i textarean, så skulle jag vilja ha orden sorterade.
Jag får ju en array med badChars = Split(Contents, vbCrLf) men hur skall jag kunna sortera efter alfabetet?


Svara

Sv: Sortera en array

Postades av 2004-09-28 17:16:52 - Johan Bovin

Nånting kanske? http://www.4guysfromrolla.com/webtech/012799-2.shtml


Svara

Sv: Sortera en array

Postades av 2004-10-01 11:17:40 - Benni Svensson

JAg vet inte om jag har missförstått scriptet, men jag får problem (jag antar att det är skrivet för att sortera tal, inte text)
Här är det första felet
<code>
Sub PrintArray(vec,lo,hi)
'== Simply print out an array from the lo bound to the hi bound.
Dim i
For i = lo to hi
Response.Write vec(i) & "<BR>"
Next
End Sub
</code>
Nästa:
<code>
'== Three or more items to sort
pivot = vec(int((loBound + hiBound) / 2))
vec(int((loBound + hiBound) / 2)) = vec(loBound)
vec(loBound) = pivot
loSwap = loBound + 1
hiSwap = hiBound
</code>
Det här verkar svårare än vad jag trodde...


Svara

Sv: Sortera en array

Postades av 2004-10-01 12:11:28 - Benni Svensson

Jag hittade ett annat script, som jag trodde mera på men..
<code>
function arraysort(values())
Dim i
Dim j
Dim smallest_value
Dim smallest_j
dim min,max
dim m
dim temp
'on error resume next

min = lbound(values,2)
max = ubound(values,2)

For i = min To max
smallest_value = values(0,i)
smallest_j = i
For j = i + 1 To max
' See if values(j) is smaller. changed to strComp to work with strings.
'If strComp(values(0,j),smallest_value,vbTextCompare) = -1 Then
If cdbl(values(0,j)) < cdbl(smallest_value) and Len(values(0,j))<> 0 Then
' Save the new smallest value.
smallest_value = values(0,j)
smallest_j = j
End If
Next 'j
If smallest_j <> i Then
' Swap items i and smallest_j.
for intA = 0 to ubound(values,1)
temp = values(intA,smallest_j)
values(intA,smallest_j) = values(intA,i)
values(intA,i) = temp
next 'intA
End If
Next 'i
arraysort = values

End function
</code>
Jag för felmedelande, och den pekar på
min = lbound(values,2)
max = ubound(values,2)
Även detta script tycks vara skrivet för tal inte text.
Går det att ändra detta scriptet?


Svara

Sv: Sortera en array

Postades av 2004-10-01 13:03:17 - Stefan Brännström

Varför inte använda bubblesort..?
Långsam men enkel:

<code>
Function Sort(arr)
If isArray(arr) Then
Dim i, j
For i = 0 to uBound(arr) - 1
For j = 0 to uBound(arr) - 1 - i
If strComp(arr(j),arr(j+1)) > 0 Then
tmp = arr(j)
arr(j) = arr(j+1)
arr(j+1) = tmp
End If
Next
Next
Else
' Error: No array
End If
Sort = arr
End Function
</code>


Svara

Sv: Sortera en array

Postades av 2004-10-01 13:46:17 - Benni Svensson

Helt kanon, fungerade perfekt, tack så jättemycket.


Svara

Nyligen

  • 21:28 Chicken Road Casino Game
  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 920
27 965
271 780
9 402
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies