Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

Als het bestand al bestaat, word 1 2, 2 3 etc.

roberini - 03/02/2009 20:28 (laatste wijziging 03/02/2009 20:55)
HTML beginner		Ik zit hier met een vraag. Ik wil graag weten of dit mogelijk is. Ik wil het ook wel googlen, maar ik zou niet weten waarop. Ik weet al hoe je kan kijken hoe het bestand bestaat, maar dan wil ik dit erna doen. Als het bestand al bestaat, dat hij het nummer(in mijn geval de naam van het bestand) dan met 1 verhoogt, totdat het bestand niet meer bestaat. In andere woorden. De standaard naam waarmee hij word opgeslagen, is plaatje1. Maar als plaatje1 al bestaat, moet hij plaatje2 proberen. Nee ik wil niet 1000en if else end if sessies gaan aanmaken, dat is niet goed voor mijn geheugen:P Maar ik wil gewoon dat hij het laatste nummer telkens veranderd totdat het kan. Dus als plaatje 1 t/m plaatje 12 bezet is, wil ik dat hij plaatje 13 maakt. Is dit mogelijk? Zo ja, wil ik graag horen hoe:) Zo nee, kan ik het dan op een andere manier wel doen?

6 antwoorden

Gesponsorde links

Abbas - 03/02/2009 21:11

Crew .NET

Zet volgende code in je FormLoad bijvoorbeeld, deze code geldt ook alleen als de bestanden in volgorde op nummer staan:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                'Bestandslocatie
Dim path As String = "C:\LocatieVanMapMetPlaatjes"
Dim di As New DirectoryInfo(path)
'Laatste bestand kiezen
'Normaal hetgeen met het hoogste nummer
Dim f As FileInfo = di.GetFiles().Last()
'Nieuw bestand maken met laatste nummer
Dim nieuwBestand As ... = "Plaatje" & ExtractNumber(f.Name)

            
'Bestandslocatie
Dim path As String = "C:\LocatieVanMapMetPlaatjes"
Dim di As New DirectoryInfo(path)
'Laatste bestand kiezen
'Normaal hetgeen met het hoogste nummer
Dim f As FileInfo = di.GetFiles().Last()
'Nieuw bestand maken met laatste nummer
Dim nieuwBestand As ... = "Plaatje" & ExtractNumber(f.Name)
 

En hier is de functie "ExtractNumber", ik ga er wel vanuit dat buiten dat nummer waar je op zoekt, nergens anders nog een getal in de bestandsnaam voorkomt.

vbnet code - Bekijk de code zonder highlighting - Klap code in

                'Functie om het nummer uit de bestandsnaam te halen
Private Shared Function ExtractNumber(ByVal fileName As String) As Integer

    Dim strReturn As String = ""
    For Each c As Char In fileName
        If (IsNumeric(c)) Then
            strReturn &= c.ToString()
        End If
    Next
    Return Convert.ToInt32(strReturn)

End Function

            
'Functie om het nummer uit de bestandsnaam te halen
Private Shared Function ExtractNumber(ByVal fileName As String) As Integer
 
    Dim strReturn As String = ""
    For Each c As Char In fileName
        If (IsNumeric(c)) Then
            strReturn &= c.ToString()
        End If
    Next
    Return Convert.ToInt32(strReturn)
 
End Function
 

roberini - 03/02/2009 21:18
HTML beginner		vbnet code - Bekijk de code zonder highlighting - Klap code in Dim nieuwBestand As ... Dim nieuwBestand As ... Als wat moet it die dim doen?(sorry, best wel domme vraag, maar niet alles met gegevenstypen is blijven steken )

Abbas - 03/02/2009 21:19 (laatste wijziging 03/02/2009 21:22)
Crew .NET		"Image" bijvoorbeeld, enkel dan nog doen: vbnet code - Bekijk de code zonder highlighting - Klap code in Imports System.Drawing Imports System.Drawing Zo wordt het dan wel: vbnet code - Bekijk de code zonder highlighting - Klap code in Dim nieuwBestand As Image nieuwBestand.Save("Plaatje" & ExtractNumber(f.Name)) Dim nieuwBestand As Image nieuwBestand.Save("Plaatje" & ExtractNumber(f.Name))

roberini - 03/02/2009 21:35 (laatste wijziging 03/02/2009 21:38)
HTML beginner		Thanks, dat heeft helemaal gewerkt, maar nu krijg ik ineens deze foutmelding. hoe los ik dit op? A first chance exception of type 'System.InvalidOperationException' occurred in System.Core.dll En dan markeert ie dit geel vbnet code - Bekijk de code zonder highlighting - Klap code in f As FileInfo = di.GetFiles().Last() f As FileInfo = di.GetFiles().Last() Ik heb een vermoeden waardoor het komt. Ik heb het fotomaken en opslaan in een timer, omdat ik wil dat hij elke minuut een prt scrn maakt en opslaat. Maar hij wil hem niet opslaan, want als ik de interval op 1000 heb, komt het na 1 seconde, heb ik hem op 10000 komt het na 10 sec

Abbas - 03/02/2009 21:36
Crew .NET		Zet die regel dan eens binnen een try-catch en dan binnen je catch geef je de Message van de Exception weer.

Mario - 04/02/2009 07:32 (laatste wijziging 04/02/2009 07:46)
Crew algemeen		Roberini, Waarom niet gewoon je file opslaan in formaat Y-M-D-h-m-s (oftewel jaar-maand-dag-uur-minuut-seconde) Je filenaam zou dan 20090204072712.jpg heten. Een minuuut later 20090204072813.jpg etc... Op deze manier heb je altijd een unieke naam per foto die je ook nog op filenaam kunt sorteren. Dit is meestal de manier waarop men logfiles wegschrijft en is eigenlijk ook voor jouw probleem van toepassing. Lijkt me handiger,overzichtelijker en makkelijker te coderen. Het staat natuurlijk vrij welke oplossing jij het makkelijkste vind EDIT : Hiermee de code om de filenaam te genereren vbnet code - Bekijk de code zonder highlighting - Klap code in Dim mFilenaam As String = Format(Now, "yyyyMMddHHmmss") & ".jpg" MessageBox.Show(mFilenaam) Dim mFilenaam As String = Format(Now, "yyyyMMddHHmmss") & ".jpg" MessageBox.Show(mFilenaam)

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten