Hallo,
ich benötige etwas Hilfe...
Ich ziehe 12 Dateien auf eine Listbox, es wird der array "array" gefüllt.
Ich möchte aus dem array (hat 12 IntegerWerte, nämlich die Zahlen: 1,...,12) zunächst die größte Zahl ermitteln.
Das sollte die 12 sein.
Dann möchte ich von dieser Zahl die Anzahl der Stellen ermitteln, das wäre dann 2.
Wenn ich die Zahlen von 1...101 hereinfüllen würde:
Dann wäre die größte Zahl die 101,
die Anzahl der Stellen wäre 3.
Ich möchte die Anzahl der Stellen der größten Zahl des arrays ermitteln.
Die Systematik soll mit allen möglichen positiven Zahlen (also auch wenn ich 10234 Werte hätte) funktionieren.
Ich habe versucht mich an einem Beispiel von dotnetperls.com zu orientieren, aber ohne Erfolg.
Es wird in der Messagebox die 10 (und nicht die 12) ausgegeben.
Was muss ich tun?
Vielen Dank für die Hilfe!!
ich benötige etwas Hilfe...
Ich ziehe 12 Dateien auf eine Listbox, es wird der array "array" gefüllt.
Ich möchte aus dem array (hat 12 IntegerWerte, nämlich die Zahlen: 1,...,12) zunächst die größte Zahl ermitteln.
Das sollte die 12 sein.
Dann möchte ich von dieser Zahl die Anzahl der Stellen ermitteln, das wäre dann 2.
Wenn ich die Zahlen von 1...101 hereinfüllen würde:
Dann wäre die größte Zahl die 101,
die Anzahl der Stellen wäre 3.
Ich möchte die Anzahl der Stellen der größten Zahl des arrays ermitteln.
Die Systematik soll mit allen möglichen positiven Zahlen (also auch wenn ich 10234 Werte hätte) funktionieren.
Ich habe versucht mich an einem Beispiel von dotnetperls.com zu orientieren, aber ohne Erfolg.
Es wird in der Messagebox die 10 (und nicht die 12) ausgegeben.
Was muss ich tun?
Vielen Dank für die Hilfe!!
VB.NET-Quellcode
- Function MaxLength(DroppedFiles As String()) As Integer
- '###################################################### fertig ###################################################################
- Dim fileName As String = "", Max_Length As Integer = 0
- Dim n As Integer
- n = DroppedFiles.Count - 1
- Dim array(n) As Integer
- Dim largest As Integer = Integer.MaxValue
- 'array füllen
- i = 0
- For Each s In DroppedFiles
- fileName = Path.GetFileNameWithoutExtension(s)
- If IsNumeric(CInt(fileName)) Then
- 'Liste Zahlen ohne leading0
- array(i) = CInt(fileName)
- End If
- i += 1
- Next
- For Each element As Integer In array
- largest = Math.Max(largest, element)
- Next
- MessageBox.Show(CStr(largest.ToString.Length))
- 'Max_Length ist größte Länge Zahl ohne Leading0
- Return Max_Length
- End Function