Zufallsfaktor einbauen??

04/22/2013 22:08 TurboGolom#1
Hey Leute
Es geht um folgendes: ich würde gerne ein script/programm machen welches per zufall aus mehreren datensätzen einen einzigen datensatz basteln soll, wobei die datensätze immer per zufall zsmgesetzt werden sollen

Bsp: ich habe mehrere Dokumente zb. Namen, Nachnamen, adresse, plz, wohnort Hausnummer usw. Jedes dokument enthält eine menge daten (100+) und das programm soll aus jedem Dokument via zufall einen Namen raussuchen und diese dann zusammensetzen so das daraus Name Vorname adresse plz wohnort etc ensteht welche er seperat via mousemove ( den part kann ich xD) einfügt.

Das wäre problem 1 . Ein hübsches feature wäre evtl die visuelle wiedergabe in einer GUI aber das ist was anderes.

Problem 2 ist ich würde gerne das der Bot automatisch eine blacklist stellt aus vornamen nachnamen adresse etc welcher. Momentan erstellte datensätze mit der blacklist vergleicht und bei übereinstimmung einen neuen erstellt.

Ist das für einen anfänger gut machbar ohne jahrelangen aufwand, wäre jemand bereit gegen ein wenig endgeld ggf dieses umzusetzen ( bin gerade knapp bei zeit aufgrund meiner bevorstehenden prüfung)

Danke für jede meldung
04/22/2013 22:15 Havelock_Vetinari#2
Also für den Anfang würde ich einfach jeden datensatz einzeln in ein Array einlesen , die Arraygröße ermitteln (per Ubound(Array) (- 1 , falls nötig)) und durch zufall ein Datensatz aus jedenm Array herausnehmen (Random(0,arraygröße,1))
04/23/2013 09:53 YatoDev#3
Was ? ihhh MouseMove ?
Code:
GUICtrlSetData($Input,$Data)
Mit Koda von Scite kannst du ganz einfach und schnell guis machen

Edit : Warum nicht Mit :

Code:
$random = Random(1,100)
FileReadLine("file1.txt",$random)
Ist für anfänger viel besser und reicht auch aus ^^
04/23/2013 14:30 FacePalmMan#4
Code:
global $random[6] ;6 ersetzen mit der anzahl an sachen die man generieren lassen will
$Anzahl=iniread("Test.txt","Anzahl","Anzahl an Dokumenten")
for $i=0 to 5 ;5 ersetzen mit der anzahl an sachen die man generieren lassen will minus 1
$random[$i]=random(0,$Anzahl,1)
next
msgbox(0,"Ergebnis","Sie sind "&$random[0]&" "&$random[1]&@crlf&"sie wohnen in "&$random[2]&" "&$random[3]&"an der "&$random[4]&" "&$random[5])
#cs
raus kommt z.b:
Sie sind Max Mustermann
sie wohnen in 45768 Marl an der MaxMustermannStraße 1337
#ce
04/23/2013 15:14 YatoDev#5
Unkompliziert und leicht verständlich aber auch nicht die eleganteste methode

Code:
#RequireAdmin

#include <file.au3>

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\autoit\license system\fake it.kxf
$Form1_1 = GUICreate("Zufalls Generator", 686, 61, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 32, 105, 21)
$Label1 = GUICtrlCreateLabel("Vorname", 8, 8, 36, 17)
$Label2 = GUICtrlCreateLabel("Nachname", 136, 8, 36, 17)
$Input2 = GUICtrlCreateInput("", 136, 32, 105, 21)
$Input3 = GUICtrlCreateInput("", 256, 32, 105, 21)
$Label3 = GUICtrlCreateLabel("Wohnort", 256, 8, 36, 17)
$Input4 = GUICtrlCreateInput("", 496, 32, 105, 21)
$Label4 = GUICtrlCreateLabel("Straße", 496, 8, 36, 17)
$Button1 = GUICtrlCreateButton("Generate", 608, 8, 67, 41)
$Input5 = GUICtrlCreateInput("", 376, 32, 105, 21)
$Label5 = GUICtrlCreateLabel("Hausnummer", 376, 8, 100, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			_generate()

	EndSwitch
WEnd



Func _generate()
	$anzahlvorname = _FileCountLines("vornamen.txt")
	$anzahlwohnort = _FileCountLines("wohnort.txt")
	$anzahlstrasse = _FileCountLines("straße.txt")
	$anzahlnamen = _FileCountLines("namen.txt")
	;Überprüfen wie viele zeilen in der datei sind
	$random1 = Random(1,$anzahlvorname,1)
	$random2 = Random(1,$anzahlwohnort,1)
	$random3 = Random(1,$anzahlstrasse,1)
	$random4 = Random(1,$anzahlnamen,1)
	;daten einlesen aus text dokumenten
	$vorname = FileReadLine("vornamen.txt",$random1)
	$name = FileReadLine("namen.txt",$random4)
	$wohnort = FileReadLine("wohnort.txt",$random2)
	$strasse = FileReadLine("straße.txt",$random3)
	;hausnummer wird generiert
	$hausnummer = Random(1,100,1)
	;daten in input felder schreiben
	GUICtrlSetData($Input1,$vorname)
	GUICtrlSetData($Input2,$name)
	GUICtrlSetData($Input3,$wohnort)
	GUICtrlSetData($Input4,$strasse)
	GUICtrlSetData($Input5,$hausnummer)
EndFunc
04/23/2013 18:20 Achat#6
[Only registered and activated users can see links. Click Here To Register...]

Code:
#include <Winhttp.au3>
Quote:
Originally Posted by Achat View Post
Func _TrueRandomNumber($iMin, $iMax)
Local $hSession = _WinHttpOpen()
Local $hConnect = _WinHttpConnect($hSession, 'random.org')

Local $sDownload = _WinHttpSimpleRequest($hConnect, 'GET', '/integers/?num=1&min=' & $iMin & '&max=' & $iMax & '&col=1&base=10&format=plain&rnd=new')

_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hSession)

Return Int($sDownload)
EndFunc ;==>_TrueRandomNumber
Falls dir Random nicht genug ist ;)

MfG
04/23/2013 22:12 TurboGolom#7
Ich danke jedem für seine antwort und lese mich mal in euren code rein und versuche mein glück xD