Smilla

10. Januar 2006

Jetzt blick ichs irgendwie gar nichtmehr Hmmm... tu mich heut eh voll schwer mich da reinzudenken...

Ich habs ja schon als Function.

Wie deklariere ich den inhalt? Das geht ja gar net oder?

Sorry das ich soviel frage, aber ich peils echt net

Achso ja, und sollte die Msgbox zu klein sein für den Inhalt, kann ich das ja auch mit wscript.echo ausgeben lassen. ist ja nur als Kontrolle für mich

10. Januar 2006

@Hendrik: Lies mal meinen oberen beitrag (den über deinem) da müsst sich deine Frage glaub beantworten oder ?

10. Januar 2006

Die leere MsgBox kommt wenn ich nach ausführen der Function eine MsgBox einsetze und TheFile ausgeben lassen will. Also so

ReadEntireFile(sAdressFilePath)


MsgBox theFile

(die Funktion hab ich jetzt ausgelassen, sonst ist hier immer so viel Code drinne,steht ja oben schon).

Und wie genau meinst du das mit der Stringvariablen?

P.S. Ich will wissen ob die Textdatei ausgelesen wurde und in der Variablen theFile nun die Daten aus der Text datei stehen, deswegen will ich das ausgeben!

Weil die Daten aus der Textdatei müssen an ein Array übergeben werden, dazu müssen sie ja erst mal ausgelesen werden!

Da die MsgBox bei Ausgabe von theFile leer ist, kann ich davon ausgehen das die Textdatei NICHT ausgelesen wird??

10. Januar 2006


sAdressFilePath = "U:\VBScript\adressverwaltung\adressen.txt"


Function ReadEntireFile(sAdressFilePath)

   Const ForReading = 1

   Dim fso, theFile, i

   i = 1

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set theFile = fso.OpenTextFile(sAdressFilePath, ForReading, False)

   'Do While theFile.AtEndOfStream <> True

   	Do While theFile.AtEndOfStream 

      	AddToArray(theFile.ReadLine)

      	i = i + 1

      	CountLines = CountLines + 1

   Loop


   theFile.Close

End Function

Woran liegts das es nicht geht? Finde den Fehler nicht

Kann ich "theFile" als Msgbox ausgeben lassen? Habs versucht da kommt dann ne leere Box...

Help please! :e@sy

10. Januar 2006

*peinlich* ich habe die Sub "AddToArray" nirgends aufgerufen :rolleyes: Habs jetzt endlich bemerkt, jetzt gibts nur einige andere Fehler noch aber da werd ich mich dann nochmal hier melden wenn ich Hilfe brauche!

10. Januar 2006

Ich habe die erste Sub (Suchfunktion) jetzt mal auskommentiert, aber dennoch, sobald ich das Script ausführen will, kommt die Fehlermeldung.

Kann mir jemand helfen? :confused:

9. Januar 2006

Danke! :e@sy

Jetzt gehts! :)

9. Januar 2006

Wir lernen jetzt im ersten Lehrjahr in der Schule C, und im Betrieb mach ich im momment VBScript.

9. Januar 2006

Ich kram dieses Thema wieder aus, weil ich wieder ein Problem mit der Suche habe, mal wieder

Problem ist nur wie ich euch mein Problem erklären soll ohne gleich den gesamten Code einstellen zu müssen den dann verständlicher Weise sicher keiner lesen will

Also auf jedenfall bekomme ich folgende Fehlermeldung: Laufzeitfehler in Microsoft VBScript: Index außerhalb des gültigen Bereichs: '[number: 0]' sobald ich in meinem Array was suchen will...

Ich habe eine Textdatei mit Daten, aus den Daten wird ein Array erzeugt, in diesem dann gesucht werden kann...

Suchbegriffseingabe:

Sub Suchfunktion

strSuche = InputBox ("Geben Sie bitte Ihren Suchbegriff ein!" , "Suchfunktion")

End Sub

Erzeugen des Array:

Sub AddToArray(sLine)

	Dim arTemp 'Variable für Temporäres Array

	iArrayElements = iArrayElements + 1 'hochzählen um 1

	'WScript.Echo "iArrayElements:" & iArrayElements & vbNewLine

	ReDim Preserve arrAdresse(6, iArrayElements)


	arTemp = Split(sLine, ";") 

	'WScript.Echo UBound(arTemp)

	arrAdresse(0,iArrayElements) = arTemp(0)

	arrAdresse(1,iArrayElements) = arTemp(1)

	arrAdresse(2,iArrayElements) = arTemp(2)

	arrAdresse(3,iArrayElements) = arTemp(3)

	arrAdresse(4,iArrayElements) = arTemp(4)

	arrAdresse(5,iArrayElements) = arTemp(5)

Laden der Daten:

Function ReadEntireFile(strAdressFilePath)

   Const ForReading = 1

   Dim fso, theFile, retstring, i

   i = 0

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set theFile = fso.OpenTextFile(strAdressFilePath, ForReading, False)

   Do While theFile.AtEndOfStream <> True


      	AddToArray(theFile.ReadLine)


      	i = i + 1

      	CountLines = CountLines + 1


   Loop

   theFile.Close

   'ReadEntireFile = retstring '<-- Was bedeutet das??

End Function

Und hier jetzt das suchen:

Function SucheInArray()

Dim ix, iy


For ix = 0 To 6	

	For iy = 0 To CountLines


		If strSuche = arrAdresse(ix, iy) Then

			MsgBox "Vorname:" & arrAdresse(ix,iy) & vbCr & "Nachname:" & arrAdresse(ix+1,iy) & vbCr & "Strasse:" & arrAdresse(ix+2,iy) & vbCr & "PLZ:" & arrAdresse(ix+3,iy) & vbCr & "Ort:" & arrAdresse(ix+4,iy) & vbCr & "Telefonnummer:" & arrAdresse(ix+5,iy)		

			NochmalSuchen


		Else	

		End If

	Next 

Next


	Dim i

	Dim arrTempAdresse() 'Temporäres Array um die Ergebnisse der Suche zu speichern

	Dim iArrayElem2

	iArrayElem2 = 0


	For i = 1 To UBound(arrAdresse, 2)						'von 1 bis zum höchsten Index-Wert

		If strSuche = arrAdresse(1,i) Then					'Wenn der Suchbegriff = dem Feld (1,i) im Datenarray ist,dann...

			iArrayElem2 = iArrayElem2 + 1					'iArrayElem2 um 1 erhöhen

			WScript.Echo "iArrayElements:" & iArrayElem2 & vbNewLine	

			ReDim Preserve arrTempAdresse(6, iArrayElem2)	'Deklaration eines dynamischen Array

			arrTempAdresse(0, iArrayElem2) = arrAdresse(0,i) 

			arrTempAdresse(1, iArrayElem2) = arrAdresse(1,i)

			arrTempAdresse(2, iArrayElem2) = arrAdresse(2,i)

			arrTempAdresse(3, iArrayElem2) = arrAdresse(3,i)

			arrTempAdresse(4, iArrayElem2) = arrAdresse(4,i)

			arrTempAdresse(5, iArrayElem2) = arrAdresse(5,i)

			arrTempAdresse(6, iArrayElem2) = arrAdresse(6,i)


		End If 

	Next

End Func

Ich hoffe das jemand viel Zeit hat mir zu helfen!

9. Januar 2006

So siehst in der externen CSS Datei aus, müsste ja eigentlich gehn oder? Tuts aber net

BODY { background-color: #FFDAB9 }

#text { font-family:Verdana; color:black; font-size:small; }

#tabelle { background-color:#FFEFD5; width:900px; border-color:#F4A460; border-style:solid; border-width:thin; }

#tabellenfeld { width:150px; border: thin solid #F4A460; }

Habs dann auch mal direkt probiert die CSS Befehle in die HTML Seite einzubauen:

<style type='text/css'>BODY { background-color: #FFDAB9; }</style>

<table style='width:900px; background-color:#FFEFD5; border-color:#F4A460; border-style:solid; border-width:thin;'>

klappt aber leider auch nicht

9. Januar 2006

Ich will eine Tabelle mit CSS erstellt haben, Problem ist aber das die zwischenlinien also die horizontalen (die von oben nach unten) die zwei Felder voneinander trennen nicht angezeigt werden.

Woran liegts?

 BODY { background-color: #FFDAB9 } 

 #text { font-family:Verdana; color:black; font-size:small; } 

 #tabelle { background-color:#FFEFD5; width:900px; border-color:#F4A460; border-style:solid; border-width:thin; } 

 #tabellenfeld { width:150px; }

Danke schonmal

9. Dezember 2005

ja stimmt

Nur was muss ich jetzt wo ändern? :confused:

9. Dezember 2005

Kann dir leider grade gedanklich nicht so folgen

Welche Variable meinst du?:confused:

9. Dezember 2005

Die wird doch schon um 1 erhöht:

CountLines = CountLines + 1

9. Dezember 2005

Das Problem ist das wenn ich suchen will kann ich nach dem letzten Eintrag im Array nicht suchen!

Außerdem wenn ich nach was anderem als Vorname suche kommt teilweise eine Fehlermeldung oder die Ausgabe wird verschoben dar gestellt.

Ich hab keine Ahnung an welchem Bereich des Codes das Problem hängt

9. Dezember 2005

Option Explicit 


'+++++++++

'Variablen

'+++++++++


Dim Name

Dim Nachname

Dim Strasse

Dim Plz

Dim Ort

Dim Telefonnummer

Dim fso

Dim sResult

Dim strAdressFilePath

Dim iPLZLaenge

Dim NameLaenge

Dim NachnameLaenge

Dim StrasseLaenge

Dim OrtLaenge

Dim NummerLaenge

Dim read

Dim fs

Dim textstream

Dim HTMLfilename

Dim write

Dim strDatensatz

Dim cssFilename

Dim HTMLfilenameCSS

Dim HTMLanzeigen

Dim shell

Dim writeblanklines


HTMLfilename = "U:\VBScript\adressverwaltung\adressen.html"

strAdressFilePath = "U:\VBScript\adressverwaltung\adressen.txt"

HTMLfilenameCSS = "U:\VBScript\adressverwaltung\cssAdressen.html"

cssFilename = "U:\VBScript\adressverwaltung\adressen.css"


'Erstellen des FileSystemObject

Set fso = CreateObject("Scripting.FileSystemObject")


'+++++++++++++

'Eingabefelder

'+++++++++++++


'Vorname

GibName


'Nachname

GibNachname


'Straße/Nr.

GibStrasse


'Plz

GibPLZ


'Ort

GibOrt


'Telefonnummer

GibTelefonnummer



'Speichern??

sResult = MsgBox("Sollen ihre eingegebenen Daten gespeichert werden?", vbYesNo, "Frage")


If sResult = vbYes Then

	WriteInListe

	OpenAdressFile

Else

	WScript.Echo "Datensatz wurde nicht gespeichert."

End If



' Textdatei öffnen

Dim oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")

oFSO.OpenTextFile(strAdressFilePath)



'Ausgabe der Textdatei

WScript.Echo readfile(strAdressFilePath)


'Anzeigen lassen in HTML Datei?

HTMLanzeigen = MsgBox ("Möchten Sie den aktuellen Stand der Adresskontakte in einer HTML Seite anzeigen lassen?" , vbYesNo)

If HTMLanzeigen = vbYes Then

	Set Shell = CreateObject("WScript.Shell")

	Shell.Run (HTMLfilename)

Else 

	MsgBox ("HTML Datei wird nicht geöffnet.")

End If



'+++++++++++++++++++++++++++++++++++++++++++++++

'Functions and Subs

'+++++++++++++++++++++++++++++++++++++++++++++++


'Name

Sub GibName()

	Name = InputBox("Gib deinen Vornamen ein!", "Adressenverwaltung")

	Do

		If Len(name) < 2 Then

			WScript.Echo "Sie haben keinen Namen eingegeben!"

			GibName

		End If

	Loop While Len(name) < 2

End Sub


'Nachname

Sub GibNachname()

	nachname = InputBox("Gib deinen Nachnamen ein!", "Adressenverwaltung")	

	Do 	

		If Len(nachname) < 2 Then

			WScript.Echo "Sie haben Ihren Nachnamen nicht eingegeben!"	

			GibNachname

		End If

	Loop While Len(nachname) < 2

End Sub


'Strasse

Sub GibStrasse()

	strasse = InputBox("Bitte Straße und Hausnummer eingeben!", "Adressenverwaltung")

	Do

		If Len(strasse) < 3 Then

			WScript.Echo "Sie haben keine Straße eingegeben!"

			GibStrasse

		End If

	Loop While Len(strasse) < 3

End Sub


'Plz

Sub GibPLZ()

	PLZ = InputBox("Bitte Postleitzahl eingeben!", "Adressenverwaltung")

	Do

		If Len(plz) < 5 Then 

			WScript.Echo "Ihre Postleitzahl ist zu kurz!"

			GibPLZ

			Else	

			If Len(plz) > 5 Then

				WScript.Echo "Ihre Postleitzahl ist zu lang!"

				GibPLZ				'wscript.quit

			Else

				'WScript.Echo "Postleitzahl wurde akzeptiert!"

				'weiter machen

			End If

		End If

	Loop While Len(Plz) <> 5

End Sub


'Ort

Sub GibOrt()

	Ort = InputBox("Nun gib deinen Wohnort ein!", "Adressenverwaltung")

	Do

		If Len(ort) < 3 Then

		WScript.Echo "Sie haben keinen Ort eingegeben!"

		GibOrt

		End If

	Loop While Len(ort) < 3

End Sub


'Telefonnummer

Sub GibTelefonnummer()

	Telefonnummer = InputBox("Zuletzt noch deine Telefonnummer eingeben!", "Adressenverwaltung")

	Do

		If Len(Telefonnummer) < 5 Then

		WScript.Echo "Sie haben keine gültige Telefonnummer (mit Vorwahl) eingegeben!"

		GibTelefonnummer

		End If

	Loop While Len(Telefonnummer) < 5

End Sub


' Text Datei mit Notepad ausgeben

Sub OpenAdressFile

	Dim oShell

	Set oShell = CreateObject("WScript.Shell")

	oShell.Run ("Notepad.exe " & strAdressFilePath)

End Sub



Function readfile(filename)

	Set fs = CreateObject("Scripting.FileSystemObject")

	If Not fs.FileExists(filename) Then

		readfile = """" & filename & """ nicht gefunden."

		Exit Function

	End If


	Set textstream = fs.OpenTextFile(filename)

	readfile = textstream.ReadALL

	textstream.close     

End Function


'+++++++++++++++++++++++++++++++++++++++++++++++

'Textdatei mit den Daten aus der InputBox füllen

'+++++++++++++++++++++++++++++++++++++++++++++++

Sub WriteInListe

	'In Textdatei schreiben

	Set write = fso.OpenTextFile (strAdressFilePath, 8, True)

	strDatensatz = Name & ";" & Nachname & ";" & Strasse & ";" & plz & ";" & Ort & ";" & Telefonnummer & VbCrLf


	write.WriteLine(strDatensatz)

	write.close



	'In HTML Datei schreiben

	Set write = fso.OpenTextFile (HTMLfilename, 8, True)


	'HTML

	write.WriteLine("<html>")

	write.WriteLine("<head><body bgcolor='#FFDAB9'></head>")

	write.WriteLine("<title>Adressverwaltung</title>")

	'Öffne Tabelle (zentriert)

	write.WriteLine("<CENTER><table width='900' border='1' bordercolor='#F4A460' bgcolor='#FFEFD5'>")

	'Öffne Tabellenreihe

	write.WriteLine("<tr>")

	'Write Name

	write.WriteLine("<td width='150'>")

	write.WriteLine("<Center>")

	write.WriteLine("<font face='Verdana' color='black' size='2'>")

	write.WriteLine(Name)

	write.WriteLine("</font>")

	write.WriteLine("</Center>")

	write.WriteLine("</td>")

	'Write Nachname

	write.WriteLine("<td width='150'>")

	write.WriteLine("<Center>")

	write.WriteLine("<font face='Verdana' color='black' size='2'>")

	write.WriteLine(Nachname)	

	write.WriteLine("</font>")

	write.WriteLine("</Center>")	

	write.WriteLine("</td>")

	'Write Straße und Hausnummer

	write.WriteLine("<td width='150'>")

	write.WriteLine("<Center>")

	write.WriteLine("<font face='Verdana' color='black' size='2'>")

	write.WriteLine(strasse)	

	write.WriteLine("</font>")

	write.WriteLine("</Center>")	

	write.WriteLine("</td>")

	'Write PLZ

	write.WriteLine("<td width='150'>")

	write.WriteLine("<Center>")

	write.WriteLine("<font face='Verdana' color='black' size='2'>")

	write.WriteLine(plz)	

	write.WriteLine("</font>")	

	write.WriteLine("</Center>")

	write.WriteLine("</td>")

	'Write Ort

	write.WriteLine("<td width='150'>")

	write.WriteLine("<Center>")

	write.WriteLine("<font face='Verdana' color='black' size='2'>")

	write.WriteLine(Ort)		

	write.WriteLine("</font>")

	write.WriteLine("</Center>")

	write.WriteLine("</td>")

	'Write Telefonnummer

	write.WriteLine("<td width='150'>")

	write.WriteLine("<Center>")

	write.WriteLine("<font face='Verdana' color='black' size='2'>")

	write.WriteLine(Telefonnummer)		

	write.WriteLine("</font>")

	write.WriteLine("</Center>")

	write.WriteLine("</td>")	

	'Schließe Tabellenreihe

	write.WriteLine("</tr>")

	'Schließe Tabelle

	write.WriteLine("</table></CENTER><BR>")

	write.WriteLine("</html>")


	write.close



	'Tabellendesign mit CSS erstellen


	Set write = fso.OpenTextFile (HTMLfilenameCSS, 8, True)

	write.WriteLine ("<html>")

	'write.WriteLine ("<link rel='stylesheet' type='text/css' href='"cssFilename"'>")

	write.WriteLine ("<title>Adressverwaltung</title>")

	write.WriteLine ("<style type='text/css'>BODY { background-color: #FFDAB9; }</style>")

	write.WriteLine ("<CENTER><table style='width:900px; background-color:#FFEFD5; border-color:#F4A460; border-style:solid; border-width:thin;'>")

	write.WriteLine ("<tr>")

	'Write Name

	write.WriteLine ("<td style='width:150px;'><Center><span style=font-family:'Verdana'; font-size:small; color:black;><Center>")

	write.WriteLine (Name)

	write.WriteLine ("</span></Center></td>")

	'Write Nachname

	write.WriteLine ("<td style='width:150px;'><Center><span style=font-family:'Verdana'; font-size:10px; color:black;><Center>")

	write.WriteLine (Nachname)

	write.WriteLine ("</span></Center></td>")

	'Write Straße

	write.WriteLine ("<td style='width:150px;'><Center><span style=font-family:'Verdana'; font-size:10px; color:black;><Center>")

	write.WriteLine (strasse)

	write.WriteLine ("</span></Center></td>")

	'Write PLZ

	write.WriteLine ("<td style='width:150px;'><Center><span style=font-family:'Verdana'; font-size:10px; color:black;><Center>")

	write.WriteLine (Plz)

	write.WriteLine ("</span></Center></td>")

	'Write Ort

	write.WriteLine ("<td style='width:150px;'><Center><span style=font-family:'Verdana'; font-size:10px; color:black;><Center>")

	write.WriteLine (Ort)

	write.WriteLine ("</span></Center></td>")

	'Write Telefonnummer

	write.WriteLine ("<td style='width:150px;'><Center><span style=font-family:'Verdana'; font-size:10px; color:black;><Center>")

	write.WriteLine (Telefonnummer)

	write.WriteLine ("</span></Center></td>")

	'Schließen der geöffneten Tags	

	write.WriteLine ("</tr></CENTER><BR></html>")

	write.Close



	'In CSS Datei schreiben




	Set write = fso.OpenTextFile (cssFilename, 2, True)


	write.WriteLine (" BODY { background-color: #FFDAB9 } ")

	write.WriteLine (" #text { font-family:Verdana; color:black; font-size:small; } ")

	write.WriteLine (" #tabelle { background-color:#FFEFD5; width:900px; border-color:#F4A460; border-style:solid; border-width:thin; } ")

	write.WriteLine (" #tabellenfeld { width:150px; } ")


	write.Close


End Sub

9. Dezember 2005

Also in meinem Array soll man suchen...

1. Man kann den letzten Eintrag nicht finden bzw. nicht danach suchen

2. Wenn man nach was anderem als Vorname sucht wird die eingabe verschoben!

Also das ist das Suchprogramm:

Option Explicit 


'Globale Variablen

Dim strSuche 'Suchbegriff

Dim sAdressFilePath 

Dim arrAdresse()'Array

Dim arrErgebnis 'Array

Dim iArrayElements

iArrayElements = 1

ReDim Preserve arrAdresse(6,1)

Dim CountLines

Dim SucheNochmal


sAdressFilePath = "U:\VBScript\adressverwaltung\adressen.txt"

'=================================================================

' Main

'=================================================================

'InputBox mit Frage nach Suchwort

Suchfunktion


'Datei einlesen

ReadEntireFile(sAdressFilePath)


'Durch Array arrAdresse loopen und suchen

arrErgebnis = SucheInArray()


'Suchergebnis ausgeben


'Neue Suche starten?

NochmalSuchen


'FERTIG!


'=================================================================

' Functions und subs

'=================================================================

'Inputbox mit Frage nach Suchwort

Sub Suchfunktion

strSuche = InputBox ("Geben Sie bitte Ihren Suchbegriff ein!" , "Suchfunktion")

End Sub 



'Erzeugt aus dem Inhalt der Datei ein Array

Sub AddToArray(sLine)

	Dim arTemp 'Variable für Temporäres Array

	iArrayElements = iArrayElements + 1 'hochzählen um 1

	'WScript.Echo "iArrayElements:" & iArrayElements & vbNewLine

	ReDim Preserve arrAdresse(6, iArrayElements)


	arTemp = Split(sLine, ";") 

	'WScript.Echo UBound(arTemp)

	arrAdresse(0,iArrayElements) = arTemp(0)

	arrAdresse(1,iArrayElements) = arTemp(1)

	arrAdresse(2,iArrayElements) = arTemp(2)

	arrAdresse(3,iArrayElements) = arTemp(3)

	arrAdresse(4,iArrayElements) = arTemp(4)

	arrAdresse(5,iArrayElements) = arTemp(5)


	'WScript.Echo arTemp(3)


	' Dim i

' 	For i = 1 To UBound(arrAdresse,2)

' 		WScript.Echo arrAdresse(0,i)

' 		WScript.Echo arrAdresse(1,i)

' 		WScript.Echo arrAdresse(2,i)

' 		WScript.Echo arrAdresse(3,i)

' 		WScript.Echo arrAdresse(4,i)

' 	    WScript.Echo arrAdresse(5,i)

' 	Next


End Sub



'Laden der Daten

Function ReadEntireFile(strAdressFilePath)

   Const ForReading = 1

   Dim fso, theFile, retstring, i

   i = 0

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set theFile = fso.OpenTextFile(strAdressFilePath, ForReading, False)

   Do While theFile.AtEndOfStream <> True


      	AddToArray(theFile.ReadLine)


      	i = i + 1


     	CountLines = CountLines + 1

   Loop

   theFile.Close

   'ReadEntireFile = retstring '<-- Was bedeutet das??

End Function


' Function AddToArray(TempFile)

' MsgBox TempFile

' End Function



'Suche in Array

Function SucheInArray()

Dim ix, iy


For ix = 0 To 6	

	For iy = 0 To CountLines


		'Bei Suche nach Vornamen:

		If strSuche = arrAdresse(ix, iy) Then

			MsgBox "Vorname:" & arrAdresse(ix,iy) & vbCr & "Nachname:" & arrAdresse(ix+1,iy) & vbCr & "Strasse:" & arrAdresse(ix+2,iy) & vbCr & "PLZ:" & arrAdresse(ix+3,iy) & vbCr & "Ort:" & arrAdresse(ix+4,iy) & vbCr & "Telefonnummer:" & arrAdresse(ix+5,iy)		


		' 'Suche nach Nachnamen

' 		Elseif strSuche = arrAdresse(ix+1, iy) Then

' 			MsgBox "Vorname:" & arrAdresse(ix,iy) & vbCr & "Nachname:" & arrAdresse(ix+1,iy) & vbCr & "Strasse:" & arrAdresse(ix+2,iy) & vbCr & "PLZ:" & arrAdresse(ix+3,iy) & vbCr & "Ort:" & arrAdresse(ix+4,iy) & vbCr & "Telefonnummer:" & arrAdresse(ix+5,iy)		

' 						

' 		'Suche nach Strasse

' 		ElseIf strSuche = arrAdresse(ix+2, iy) Then

' 			MsgBox "Vorname:" & arrAdresse(ix,iy) & vbCr & "Nachname:" & arrAdresse(ix+1,iy) & vbCr & "Strasse:" & arrAdresse(ix+2,iy) & vbCr & "PLZ:" & arrAdresse(ix+3,iy) & vbCr & "Ort:" & arrAdresse(ix+4,iy) & vbCr & "Telefonnummer:" & arrAdresse(ix+5,iy)		

' 						

' 		'Suche nach PLZ

' 		ElseIf strSuche = arrAdresse(ix+3, iy) Then

' 			MsgBox "Vorname:" & arrAdresse(ix,iy) & vbCr & "Nachname:" & arrAdresse(ix+1,iy) & vbCr & "Strasse:" & arrAdresse(ix+2,iy) & vbCr & "PLZ:" & arrAdresse(ix+3,iy) & vbCr & "Ort:" & arrAdresse(ix+4,iy) & vbCr & "Telefonnummer:" & arrAdresse(ix+5,iy)		

' 						

' 		'Suche nach Ort

' 		ElseIf strSuche = arrAdresse(ix+4, iy) Then

' 			MsgBox "Vorname:" & arrAdresse(ix,iy) & vbCr & "Nachname:" & arrAdresse(ix+1,iy) & vbCr & "Strasse:" & arrAdresse(ix+2,iy) & vbCr & "PLZ:" & arrAdresse(ix+3,iy) & vbCr & "Ort:" & arrAdresse(ix+4,iy) & vbCr & "Telefonnummer:" & arrAdresse(ix+5,iy)		

' 						

'  		'Suche nach Telefonnummer

' 		Elseif strSuche = arrAdresse(ix+5, iy) Then

' 			MsgBox "Vorname:" & arrAdresse(ix,iy) & vbCr & "Nachname:" & arrAdresse(ix+1,iy) & vbCr & "Strasse:" & arrAdresse(ix+2,iy) & vbCr & "PLZ:" & arrAdresse(ix+3,iy) & vbCr & "Ort:" & arrAdresse(ix+4,iy) & vbCr & "Telefonnummer:" & arrAdresse(ix+5,iy)		


		Else	


		End If

	Next 

Next


' 	Dim i

' 	Dim arrTempAdresse() 'Temporäres Array um die Ergebnisse der Suche zu speichern

' 	Dim iArrayElem2

' 	iArrayElem2 = 0

' 	

' 	For i = 1 To UBound(arrAdresse, 2)						'von 1 bis zum höchsten Index-Wert

' 		If strSuche = arrAdresse(1,i) Then					'Wenn der Suchbegriff = dem Feld (1,i) im Datenarray ist,dann...

' 			iArrayElem2 = iArrayElem2 + 1					'iArrayElem2 um 1 erhöhen

' 			WScript.Echo "iArrayElements:" & iArrayElem2 & vbNewLine	

' 			ReDim Preserve arrTempAdresse(6, iArrayElem2)	'Deklaration eines dynamischen Array

' 			arrTempAdresse(0, iArrayElem2) = arrAdresse(0,i) 

' 			arrTempAdresse(1, iArrayElem2) = arrAdresse(1,i)

' 			arrTempAdresse(2, iArrayElem2) = arrAdresse(2,i)

' 			arrTempAdresse(3, iArrayElem2) = arrAdresse(3,i)

' 			arrTempAdresse(4, iArrayElem2) = arrAdresse(4,i)

' 			arrTempAdresse(5, iArrayElem2) = arrAdresse(5,i)

' 			arrTempAdresse(6, iArrayElem2) = arrAdresse(6,i)

' 			

' 			 

' 			' arrAdresse(1,iArrayElements) = arTemp(1)

' 			' arrAdresse(2,iArrayElements) = arTemp(2)

' 			' arrAdresse(3,iArrayElements) = arTemp(3)

' 			' arrAdresse(4,iArrayElements) = arTemp(4)

' 			' arrAdresse(5,iArrayElements) = arTemp(5)

' 

' 		End If 

' 	Next

End Function



'Möchten Sie nochmal suchen??


Function NochmalSuchen ()

	Do While SucheNochmal <> vbNo 

	SucheNochmal = MsgBox ("Möchten Sie nochmal suchen?", vbYesNo, "Suchfunktion")	

		If SucheNochmal = vbYes Then

			Suchfunktion

			SucheInArray()

		Else

		End If


	Loop

End Function

Braucht ihr den Code des Adressverwaltungsprogramms von mir auch? Da werden nämlich die Adresskontakte eingegeben nach denen man suchen kann.

Ich geb euch einfach auch mal den Code:

(nächster Beitrag)

Ich hoffe es kann mir jemand weiterhelfen

5. Dezember 2005

Hoffe ich bin hier richtig!

Ich hab bei meinem Worddokument jetzt Kopf- und Fußzeilen eingefügt, doch was schreibe ich rein? Hab bisjetzt oben mal das Firmenlogo eingebaut und unten Seitenzahlen.

Wie ist es korrekt? Was muss alles rein?

Im Internet bin ich ehrlich gesagt nicht wirklich fündig geworden...

30. November 2005

Ich soll im im Umfeld von "Resourcen freigeben", "Datei und Filehandling" suchen und schauen ob ich was finde wo man nothing verwenden sollte...

Wie soll ich im Umfeld von etwas suchen?

Es halndelt sich um den Begriff Nothing der beim Programmieren der Verweis auf eine leere Referenz ist und den verwendeten Speicherplatz wieder frei gibt.

Soll ich da in Google einfach "Resourcen freigeben" oder "Datei und Filehandling" eingeben oder wie würdet ihr das machen, hab keine Ahnung, bin ehrlich gesagt überfragt! :confused:

30. November 2005

Vielen Dank Jasso! :e@sy Jetzt passt es!

Muss ich mir nur noch klar werden wie das alles funktioniert und das alles auch erklären können, dann geht das Beispiel per eMail ab zum Ausbilder

30. November 2005

Wenn ich jetzt X ausgeben lasse dann kommen 3 Zahlen (die 3 Positionen an denen sich "ein" befindet) aber jeweils eine Zahl zu hoch, also statt Pos. 2 kommt 3 usw.

Eigentlich ja logisch, aber was lasse ich stattdessenausgeben?

30. November 2005

@Jasso: Danke was lasse ich jetzt ausgeben?

30. November 2005

Du meinst so?

Dann gibts ne Endlosschleife wo "2" ausgegeben wird

Option Explicit


Dim str1

Dim str2

Dim x

Dim ergebnis

Dim anzahlEin


str1 = "Deiner ist ein schöner Text, meiner nicht."

str2 = "ein"

x = 1


ergebnis = InStr (x, str1, str2)


Do While ergebnis <> 0


	x = ergebnis


	ergebnis = InStr (x, str1, str2)


wscript.echo ergebnis


Loop

30. November 2005

@jasso: und was tue ich am besten dagegen? Die Do...Loop Schleife wird aber doch fertig wenn das Ergebnis 0 ist, wenn Instr. keine Übereinstimmung (mehr) findet, bekommt man als Rückgabe 0.

30. November 2005

Ich habe oberhalt des "Loop" das wscript.echo eingesetzt.

Baue ich es unter die Do...Loop Schleife dann bekomme ich keine Ausgabe

Anmelden

Profile

Forum

Downloads

Kalender

Blogs

Shop

Beiträge von Smilla

Fachinformatiker.de, 2024 by SE Internet Services

Links

Fachinformatiker.de App

Kontakt

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte