---
title: "Randomera namn.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/75993-randomera-namn"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "[AMD]Zmaster"
published: "2003-05-05T14:32:10.000Z"
updated: "2003-05-06T09:16:17.000Z"
replies: 10
views: 468
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/75993-randomera-namn"
---

# Randomera namn..

## #1 — [AMD]Zmaster, 2003-05-05T14:32Z

Tjena, behöver lite hjälp.
Jag har 2 olika .txt filer.
En som heter namn.txt, där det står olika förnamn, ett för varje rad.
En annan som heter efternamn.txt där det står olika efternamn, ett för varje rad.
Nu vill jag via en aspsida hämta värdena, dvs namnen och para ihop dem på alla sätt, utan att samma helnamn komer igen, dvs att det typ kan se ut så här:

namn.txt:

> Stellan
> Steven
> Sixten

efternamn.txt:

> Lindqvist
> Broberg
> Karlsson
> Moberg

Då listar aspsidan följande namn:

> Stellan Lindqvist
> Stellan Broberg
> Stellan Karlsson
> Stellan Moberg
> Steven Lindqvist
> Steven Broberg
> Steven Karlsson
> Steven Moberg
> Sixten Lindqvist
> Sixten Broberg
> Sixten Karlsson
> Sixten Moberg

Det handlar om rätt många namn totalt om man räknar antalet möjliga, närmare 39932 om man räknar på dem för och efternamn jag har, det lär ta en stund alltså, men men.

Nån som kan detta?

Permalänk: https://www.webforum.nu/p/75993

## #2 — [AMD]Zmaster, 2003-05-05T16:32Z

Är detta svårt?

Permalänk: https://www.webforum.nu/p/1035389

## #3 — spango, 2003-05-05T19:12Z

Inte alls. Jag orkar inte skriva riktig kod, men här är lite pseudokod:

```
förnamn är en array med alla förnamnen.
efternamn är en array med alla efternamnen.
för varje namn i förnamn:
    för varje namn i efternamn:
        skriv ut det aktuella förnamnet och det aktuella efternamnet.
```

Se så. Spring iväg och implementera nu! ;)

Permalänk: https://www.webforum.nu/p/1035560

## #4 — [AMD]Zmaster, 2003-05-05T20:20Z

Tack tack, problemet är bara att jag knappt kan asp :P 
Någon som kanske kan hjälpa mig där också? :)

Permalänk: https://www.webforum.nu/p/1035659

## #5 — niko, 2003-05-05T21:47Z

Om *jag* får bestämma så gör du om dina filer till XML:

namn.xml:

```
<?xml version="1.0" encoding="ISO-8859-1"?>
<xmlrot>
<namn>Stellan</namn>
<namn>Steven</namn>
<namn>Sixten</namn> 
</xmlrot>
```

efternamn.xml:

```
<?xml version="1.0" encoding="ISO-8859-1"?>
<xmlrot>
<efternamn>Lindqvist</efternamn>
<efternamn>Broberg</efternamn>
<efternamn>Karlsson</efternamn> 
<efternamn>Moberg</efternamn> 
</xmlrot>
```

.. och kör sen så här:

```
<%
Set FirstNames = Server.CreateObject("MSXML2.DOMDocument")
FirstNames.async = False
FirstNames.Load Server.MapPath("namn.xml")
Set LastNames = Server.CreateObject("MSXML2.DOMDocument")
LastNames.async = False
LastNames.Load Server.MapPath("efternamn.xml")
Set lstFirstNames = FirstNames.getElementsByTagName("namn")
Set lstLastNames = LastNames.getElementsByTagName("efternamn")
For i = 0 To lstFirstNames.length - 1
    For j = 0 To lstLastNames.length - 1
        response.write lstFirstNames.Item(i).firstChild.nodeValue & " " & lstLastNames.Item(j).firstChild.nodeValue 

& "<br>"
    Next
Next
%>
```

Permalänk: https://www.webforum.nu/p/1035745

## #6 — niko, 2003-05-05T22:57Z

Variant utan XML:

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & Server.MapPath(".") & ";Extensions=asc,csv,tab,txt;"
set rs = conn.execute("SELECT * from namn.txt, efternamn.txt order by 1")
While Not rs.EOF
	Response.Write  rs(0) & " " & rs(1) & "<br>"
	rs.MoveNext 
Wend
%>
```

OBS: Du måste lägga en blankrad överst i *namn.txt* och *efternamn.txt*.

Permalänk: https://www.webforum.nu/p/1035808

## #7 — Sebbe, 2003-05-06T04:54Z

Variant i FSO.

```
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile("namn.txt")
i = 0
Do Until objTS.AtEndOfStream
  arrNamn(i) = objTS.ReadLine
Loop
objTS.Close
Set objTS = Nothing

Set objTS = objFSO.OpenTextFile("efternamn.txt")
i = 0
Do Until objFSO.AtEndOfStream
  arrEfter(i) = objTS.ReadLine
Loop
objTS.Close
Set objTS = Nothing
Set objFSO = Nothing

For j = 0 To UBound(arrNamn)
  For k = 0 To UBound(arrEfter)
    Response.Write(arrNamn(j) & " " & arrEfter(k) & "<br>")
  Next
Next
%>
```

Otestad kod, så säg till om det inte funkar. :)

Permalänk: https://www.webforum.nu/p/1035842

## #8 — Jesper T, 2003-05-06T05:42Z

Men skulle namnen inte ligga slumpmässigt?

Permalänk: https://www.webforum.nu/p/1035858

## #9 — [AMD]Zmaster, 2003-05-06T06:41Z

> **niko skrev:**
>
> Variant utan XML:
>
>
> ```
> <%
> Set Conn = Server.CreateObject("ADODB.Connection")
> Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
> "Dbq=" & Server.MapPath(".") & ";Extensions=asc,csv,tab,txt;"
> set rs = conn.execute("SELECT * from namn.txt, efternamn.txt order by 1")
> While Not rs.EOF
> 	Response.Write  rs(0) & " " & rs(1) & "<br>"
> 	rs.MoveNext 
> Wend
> %>
> ```
>
> 
> OBS: Du måste lägga en blankrad överst i *namn.txt* och *efternamn.txt*.

Körde på det, perfekt, funkar precis som jag ville :)
Tack! Tack alla andra också som gjorde sina versioner! :)

Permalänk: https://www.webforum.nu/p/1035874

## #10 — Jesper T, 2003-05-06T06:58Z

order by 1,2

Om du även vill sortera efternamnet i bokstavsordning.

Permalänk: https://www.webforum.nu/p/1035884

## #11 — Lasp, 2003-05-06T09:16Z

Om du vill ha namn efter frekvens (förekomst) har jag lite material.
Har PM át dig om detta. Hör bara av dig.

Permalänk: https://www.webforum.nu/p/1038781

---

Tråden på webben: https://www.webforum.nu/amne/asp/75993-randomera-namn