Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

[VB] Mehrere Fragen zum Thema suchen, Variabel und Ausgabe

Frage Entwicklung Basic

Mitglied: copro

copro (Level 1) - Jetzt verbinden

22.02.2006, aktualisiert 23.02.2006, 4665 Aufrufe, 2 Kommentare

Hallo zusammen ich programmiere mein erstes Programm...

Nun haben sich doch einige Fragen angesammelt:

Die Erste und wichtigste Frage:

In dem Programm lade ich Dateien herunter, ob der Download erfolgreich war wird an ein Textfeld übergeben... Das ganze wird mit einem Loop wiederholt bis die List zu ende ist. in der liste wird lediglich der Name der Datei gespeichert.
Klappt soweit hervoragend. Nur ein Problem ergibt sich und zwar werden die Angaben erst am Ende des Loops an die Textbox weitergegeben, sprich sind es einige Dateien die er herunterläd sieht man garnichts bis alle unten sind und dann wird gleich der komplette Text angezeigt...

Ist das normal oder ein Programmierfehler meinerseits? Falls normal wie kann ich aus dem Loop ausbrechen um die Ausgaben wärend der Laufzeit zu machen?


Die zweite Frage:

Ich komm mit dem Suchen inerhalb einer Datei nicht klar...
Funktioniert es mit FindStr?
Ich möchte ein bestimmtes Wort in einer Datei suchen und wenn es gefunden wird die ganze Zeile in der sich das Wort befindet an eine weitere Datei übergeben...


Die dritte und blödste Frage ;) :

Kann ich die Dos-Variabeln wie %HOMEPATH% nicht nutzen? Hat bei mir auf jeden Fall so nicht geklappt...


Mit freundlichen Grüßen und Thx im Voraus

Copro
Mitglied: 16568
22.02.2006 um 21:53 Uhr
Okay, erst ma herzlichen Glückwunsch, daß Du es mit VB probierst ^^
Ist für Anfänger meiner Meinung nach die bessere Lösung.
(bitte keine Tomaten aus dem Pascal/Delphi-Lager )

Die erste Frage kann man nur dann beantworten, wenn man den Code zum Programm kennt.
(z.B. wenn das Prog nicht ständig zwischendrin prüft, ob die Datei down ist, wird es erst am Schluß gezeigt)



Der Ansatz zur zweiten ist schon mal gar nicht so schlecht...



Und zur Dritten: Environ$.

Hier ma was dazu:


<font class="code">

Option Explicit

Private Sub CommandButton1_Click()
Dim X As Integer
Dim Buffer As String

X = 1
Do
Buffer = Environ$(X)
If Len(Buffer) <> 0 Then
ListBox1.AddItem Buffer
X = X + 1
Else
Exit Do
End If
Loop
End Sub

</font>



Dazu eine einfache Form erstellen, darauf ma einen Command-Button und ein List-Feld.


Und wenn Du sie jetzt noch verändern willst:

<font class="code">

Option Explicit

Private Declare Function GetEnvironmentVariable Lib _
"kernel32.dll" Alias "GetEnvironmentVariableA" (ByVal _
lpName As String, ByVal lpBuffer As String, ByVal _
nSize As Long) As Long

Private Declare Function SetEnvironmentVariable Lib _
"kernel32.dll" Alias "SetEnvironmentVariableA" (ByVal _
lpName As String, ByVal lpValue As String) As Long

Private Sub Command1_Click()
Call SetEnvironmentVariable("HALLO", "Wert von Hallo")
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Dim Buffer As String
Dim l As Long

l = 256
Buffer = String$(l, Chr$(0))

l = GetEnvironmentVariable("HALLO", Buffer, l)

If l <> 0 Then
Buffer = Left(Buffer, l)
MsgBox ("Umgebungsvariable HALLO =" & Chr$(34) _
& Buffer & Chr$(34))
End If
End Sub


</font>



So, bei weiteren Fragen...



Lonesome Walker
Bitte warten ..
Mitglied: copro
23.02.2006 um 03:25 Uhr
Hi Lonesome Walker thx schon mal.
Mein 1. Problem konnte ich mit DoEvent lösen...
am 2. häng ich grat
und das Beispiel von dir zu Problem Nummero 3 werd ich mir noch ansehen =) Sieht doch komplexer aus als erwartet mehr oder weniger versteh ich aber was es abgeht ^^

Edit:

Bin nun etwas weiter gekommen...
Kannst du mir noch sagen wieso die Like funktion nicht greift?

Open "data\reffirst.dat" For Input As #FNr
'auslesen bis zum Dateiende
Do While Not EOF(FNr)
'zeilenweise auslesen und übernehmen
Line Input #FNr, qw

For I = 0 To List1.ListCount - 1
If List1.List(I) Like qw & "*" Then
MsgBox "endlich"
End If
Next I
Loop

Mit freundlichen Grüßen copro
Bitte warten ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Visual Studio
gelöst VB.Net - Problem mit Umleitung der Standard-Ausgabe (4)

Frage von emeriks zum Thema Visual Studio ...

Batch & Shell
Powershell - In Textdatei suchen und ersetzen (5)

Frage von Raaja89 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...