Zum Inhalt springen

Smilla

Mitglieder
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    177

  • Benutzer seit

  • Letzter Besuch

 Inhaltstyp 

Beiträge von Smilla

    Kleidung - die X'te

    in IT-Arbeitswelt

    Geschrieben

    Bei uns trägt jeder fast was er will, also kurze Hosen und T-Shorts sowie Turnschuhe oder im Sommer auch so Trekkingsandalen haben viele an. Habe vor kurzem auch einen in FlipFlops gesehen ;)

    Klar, wenn man zu Kunden muss, zieht man sich natürlich anders an (Anzug).

    Ich trage in letzter zeit oft Tops, Jeans die ich bis zum Knie hochkrempel und Flipflops. Wenn ich im Büro rumlaufe dann auch mal barfuß bei der Hitze ;)

    Optimaler Ausbildungsverlauf!

    in Ausbildung im IT-Bereich

    Geschrieben

    Wir durchlaufen bei uns 4 Abteilungen.

    Die Organisation und Verwaltung, da war ich 2 Wochen.

    Dann Vertrieb/Marketing.

    Softwareentwicklung/Programmierung

    und Interne Administration.

    Finde es gut das wir auch nicht so unbedingt berufsbezogene Abteilungen durchlaufen haben ;) dann sieht man so was die Bürokaufleute bei uns so machen ;)

    "Computereinstellungen werden geladen" nur mit Verzögerung wen Ntb. am Netz

    in Windows

    Geschrieben

    Hallo zusammen,

    bei uns in der Firma haben einige Probleme mit ihrem Notebook, wenn es am Netz ist und hochgefahren wird dauert das Laden der Computereinstellungen sehr lange!

    Wenn der Netzstecker ausgesteckt ist geht es in normaler Geschwindigkeit.

    Woran kann das liegen?

    Hab die Aufgabe danach zu suchen aber leider bisher nichts brauchbares im Internet gefunden.

    Vielleicht könnt ihr mir ja helfen! ;)

    Wordmakro schreiben

    in Basic

    Geschrieben

    OK, aber das Problem ist, wenn ich jetzt als Beispiel die Funktion "Nur Inhalt einfügen" als Makro möchte, geht das aufzeichnen des Makros nur wenn etwas in der Zwischenablage liegt, sonst ist das Feld ausgegraut! Wenn ich nun etwas in die Zwischenablage kopiere und dann das Makro aufzeichnen will dann fügt es mir den Inhalt meiner Zwischenablage ein... :confused:

    Wordmakro schreiben

    in Basic

    Geschrieben

    Ich soll ein Wordmakro schreiben, habe aber keine ahnung davon ;)

    Wer kann mir mal Grundlegende Dinge nennen? ;)

    Im Internet hab ich leider nix brauchbares gefunden bis jetzt, werde aber morgen auch nochmal weitersuchen!

    Wie genau schreibe ich ein Wordmakro? Also in Word da auf Extras -> Makro -> aufzeichnen, das weis ich.

    Und dann?

    Mein Makro soll die Funktion "Nur Inhalt einfügen" (Berarbeiten -> Nur Inhalt einfügen) ausführen. Das Makro soll dann ein Symbol und ein Tastenkürzel (ShortCut) bekommen. Beides letztere ist nicht mein Problem, haben wir in der Berufschule gelernt wie man das macht ;-)

    PC sperren beim AP verlassen

    in Ausbildung im IT-Bereich

    Geschrieben

    Hallo zusammen,

    mich würde einfach mal interessieren wie ihr das handhabt, sperrt ihr euren Rechner jedesmal wenn ihr den PC verlasst (also auf Toilette gehn, Kaffee holen, ...).

    Ich habs früher nie gemacht, habs mir aber jetzt doch angewöhnt!

    Würd mich mal interessieren wie andere das so handhaben, ob ichs übertrieben seh oder so? Macht bei uns aber eigentlich jeder mit dem PC sperren, das hat ja auch nix mit Misstrauen zu tun sondern nur zur Sicherheit finde ich ;)

    Laufzeitfehler "Index außerhalb des gültigen Bereichs"

    in Basic

    Geschrieben

    Falls jemand noch den ganzen Code brauch:

    Option Explicit 


'Globale Variablen

Dim strSuche 'Suchbegriff

Dim sAdressFilePath 

Dim arrAdresse() 'Array

Dim arrErgebnis 'Array

Dim iArrayElements

iArrayElements = 1

Dim CountLines

Dim SucheNochmal

Dim sLine

Dim tempfile



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

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

' Main

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

'InputBox mit Frage nach Suchwort

Suchfunktion


'Datei einlesen

ReadEntireFile(sAdressFilePath)


'Array erzeugen

AddToArray(sLine)


'AddToArray(TempFile)


'Durch Array arrAdresse loopen und suchen

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



'Datei einlesen

Function ReadEntireFile(sAdressFilePath)


   Const ForReading = 1

   Dim fso, theFile, i, inhalt

   i = 1

   Set fso = CreateObject("Scripting.FileSystemObject")

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


   Do Until theFile.AtEndOfStream

    inhalt = theFile.ReadLine

   	WScript.Echo inhalt 

   		'AddToArray(theFile.ReadLine)

      	i = i + 1

      	CountLines = CountLines + 1


   Loop 


   theFile.Close


End Function



'Erzeugt aus dem Inhalt der Datei ein Array

Sub AddToArray(sLine)

	Dim arTemp 'Variable für Temporäres Array

	iArrayElements = iArrayElements + 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()


    ' 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



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 


	' MsgBox ix

	' MsgBox iy


	'MsgBox arrAdresse(1,1)

  		If strSuche = arrAdresse(ix,iy) Then

			MsgBox "Vorname:" & arrAdresse(ix,iy) & vbCrlf & "Nachname:" & arrAdresse(ix+1,iy) & vbCrlf & "Strasse:" & arrAdresse(ix+2,iy) & vbCrlf & "PLZ:" & arrAdresse(ix+3,iy) & vbCrlf & "Ort:" & arrAdresse(ix+4,iy) & vbCrlf & "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)						

		If strSuche = arrAdresse(1,i) Then					

			iArrayElem2 = iArrayElem2 + 1					

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

			ReDim Preserve arrTempAdresse(6, iArrayElem2)	

			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 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

    Laufzeitfehler "Index außerhalb des gültigen Bereichs"

    in Basic

    Geschrieben

    Neues Problem, es kommt die Fehlermeldung „Laufzeitfehler in Microsoft VBScript: Index außerhalb des gültigen Bereichs: '[number: 0]'“. Es wird ein Array erstellt in das die Daten die vorher aus der Textdatei ausgelesen wurden reingeschrieben werden sollen.

    Ich glaube das die Ursache für den Laufzeitfehler darin liegt das das Array leer ist, also gar nicht „befüllt“ wird…

    Wer kann mir das bestätigen oder sagen wo der Fehler sonst liegt und mir bei der Lösung helfen?

    Hier der Code vom auslesen der Textdatei 

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


   Const ForReading = 1

   Dim fso, theFile, i, inhalt

   i = 1

   Set fso = CreateObject("Scripting.FileSystemObject")

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


   Do Until theFile.AtEndOfStream


   		'AddToArray(theFile.ReadLine)

      	i = i + 1

      	CountLines = CountLines + 1

   inhalt = theFile.ReadLine

   'WScript.Echo inhalt 

   Loop 


   theFile.Close
    Und hier das Erstellen des Arrays: 
    Dim arTemp 'Variable für Temporäres Array

	iArrayElements = iArrayElements + 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)

    Sorry das ich ständig mit neuen Fragen komme... :(

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Links

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...