Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  VBasic / vb.net / vbs / wsh
  Schleife funktioniert nicht

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Schleife funktioniert nicht (1496 mal gelesen)
Feyza
Mitglied



Sehen Sie sich das Profil von Feyza an!   Senden Sie eine Private Message an Feyza  Schreiben Sie einen Gästebucheintrag für Feyza

Beiträge: 605
Registriert: 12.01.2004

AutoCAD Mechanical 2014 / Windows Win7 / HP-UX / Oracle 10
VB6 / Visual Studio:NET2005 / .NET 2010 - Vb.net / Windows Server 2012, ASP.net

erstellt am: 25. Jan. 2011 12:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Zusammen,

könnt Ihr mir bitte bei meiner Schleife weiterhelfen. Wenn man mehrere Zeilen(Dateien) im ListView markiert und kopieren möchte, kopiert dieser nur eine Datei. Dieser will einfach nicht funktionieren.

Ich habe eine ListView, wo ich Dateien anzeigen lasse.
Spalte 1: Dateinamen s2 Spalte 2: CAD System z.B. AutoCAD Spalte 4: Pfad mit Dateinamen s1
  
Script ist in VB.NET 2003 geschreiben.
    
Try
            For p = 0 To ListView1.Items.Count - 1

                If ListView1.Items(p).Selected = True Then
                    s2 = ListView1.SelectedItems(0).SubItems(3).Text 'Get Column 2 value
                    s1 = ListView1.SelectedItems(0).SubItems(0).Text
                    'Me.Refresh()

                    FileCopy(s2, txtSavePfad.Text & s1)

                    'ListView1.Items(p).Checked = True

                End If
            Next
        Catch Except As Exception

            MsgBox(Except.Message & vbNewLine & _
                    "Möglicherweise ist die Pfadangabe falsch.", MsgBoxStyle.Exclamation)
            'ListView1.Items.Clear()
        End Try

Danke für jede Unterstützung!

------------------
Schöne Grüße
Feyza : )

[Diese Nachricht wurde von Feyza am 25. Jan. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

RSchulz
Ehrenmitglied V.I.P. h.c.
Head of CAD, Content & Collaboration / IT-Manager



Sehen Sie sich das Profil von RSchulz an!   Senden Sie eine Private Message an RSchulz  Schreiben Sie einen Gästebucheintrag für RSchulz

Beiträge: 5541
Registriert: 12.04.2007

@Work
Lenovo P510
Xeon E5-1630v4
64GB DDR4
Quadro P2000
256GB PCIe SSD
512GB SSD
SmarTeam V5-6 R2016 Sp04
CATIA V5-6 R2016 Sp05
E3.Series V2019
Altium Designer/Concord 19
Win 10 Pro x64

erstellt am: 25. Jan. 2011 12:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Feyza 10 Unities + Antwort hilfreich

Hallo Feyza,

Code:

...
                    s2 = ListView1.SelectedItems(0).SubItems(3).Text 'Get Column 2 value
                    s1 = ListView1.SelectedItems(0).SubItems(0).Text
...

sollte das nicht eher so aussehen?

Code:

...
                    s2 = ListView1.Items(p).SubItems(3).Text 'Get Column 2 value
                    s1 = ListView1.Items(p).SubItems(0).Text
...

Also wenn ich das richtig lese, dann startest du immer wieder den gleichen Kopiervorgang und zwar den des ersten selektierten Eintrags.

Edit: Sorry habe natürlich den Itemindex vergessen...

------------------
MFG
Rick Schulz

         Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

[Diese Nachricht wurde von RSchulz am 25. Jan. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Oberli Mike
Ehrenmitglied V.I.P. h.c.
Dipl. Maschinen Ing.



Sehen Sie sich das Profil von Oberli Mike an!   Senden Sie eine Private Message an Oberli Mike  Schreiben Sie einen Gästebucheintrag für Oberli Mike

Beiträge: 3728
Registriert: 29.09.2004

SolidWorks 2006 SP5
Intel Core 2CPU (2.4 GHz)
2 GB RAM
Nvidia FX 560
Windows XP SP2
Novell als Netzwerk

erstellt am: 25. Jan. 2011 13:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Feyza 10 Unities + Antwort hilfreich

Hallo Feyza,

Hast du vor der Schleife dir mal die Variable ListView1.Items.Count ausgeben lassen?

Kenne mich in diesem Basic nicht genau aus.
Benötigt dieses Basic beim Next keinen Variablenhinweis (Next p)?

Gruss
Mike

------------------

The Power Of Dreams

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

StefanBerlitz
Ehrenmitglied V.I.P. h.c.
IT Admin (CAx)



Sehen Sie sich das Profil von StefanBerlitz an!   Senden Sie eine Private Message an StefanBerlitz  Schreiben Sie einen Gästebucheintrag für StefanBerlitz

Beiträge: 8756
Registriert: 02.03.2000

SunZu sagt:
Analysiere die Vorteile, die
du aus meinem Ratschlag ziehst.
Dann gliedere deine Kräfte
entsprechend und mache dir
außergewöhnliche Taktiken zunutze.

erstellt am: 25. Jan. 2011 13:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Feyza 10 Unities + Antwort hilfreich

Hallo Feyza,

ich denke auch wie Rick, dass es daran liegt, dass du für jeden selektierten Eintrag dieselbe Datei ausliest und kopierst. Du benutzt ja jedesmal in der Schleife ein ListView1.SelectedItems(0)., also jedesmal die Werte des ersten selektierten Eintrags.

Ich vermute, dass müsste ungefähr so heißen

Zitat:
Original erstellt von Feyza:
Try
            For p = 0 To ListView1.Items.Count - 1

                If ListView1.Items(p).Selected = True Then
                    s2 = ListView1.Items(p).SubItems(3).Text 'Get Column 2 value
                    s1 = ListView1.Items(p).SubItems(0).Text
                    'Me.Refresh()

                    FileCopy(s2, txtSavePfad.Text & s1)

                    'ListView1.Items(p).Checked = True

                End If
            Next
        Catch Except As Exception

            MsgBox(Except.Message & vbNewLine & _
                    "Möglicherweise ist die Pfadangabe falsch.", MsgBoxStyle.Exclamation)
            'ListView1.Items.Clear()
        End Try



Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Feyza
Mitglied



Sehen Sie sich das Profil von Feyza an!   Senden Sie eine Private Message an Feyza  Schreiben Sie einen Gästebucheintrag für Feyza

Beiträge: 605
Registriert: 12.01.2004

AutoCAD Mechanical 2014 / Windows Win7 / HP-UX / Oracle 10
VB6 / Visual Studio:NET2005 / .NET 2010 - Vb.net / Windows Server 2012, ASP.net

erstellt am: 25. Jan. 2011 13:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Zusammen,

er hat wirklich das erste selektierte Datei mehrmals kopiert : )und jetzt funkioniert es wunderbar.

Vielen Dank!!

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz