If Abfrage file.Extension mit Array

Sam85 · 28. Februar 2018, 08:17

Hallöchen,

ich hab da mal wieder eine Frage:

ich hab diesen Array und will ihn in einer If Abfrage, abfragen:

VB.NET-Quellcode

Dim ext() As String = {".pdf", ".PDF"}

mach ich das dann so oder gehe ich das falsch an?

VB.NET-Quellcode

If file.Extension = ext.ToList.ToString Then

EDIT: Ich dachte auch über sowas nach, wäre das eine Alternative?

VB.NET-Quellcode

If file.Extension.Contains(ext.ToString) Then

Freue mich über Feedback.

petaod · 28. Februar 2018, 08:41

Sam85 schrieb:

If file.Extension.Contains(ext.ToString) Then

Umgekehrt.
Das ext-Array muss file.Extension beinhalten.

Ausserdem würde ich, wenn es nur um unterschiedliche Schreibweise geht, das einfacher formulieren:

VB.NET-Quellcode

If file.Extension.ToLower = ".pdf" Then

Radinator · 28. Februar 2018, 09:13

Einfacher geht das (IMHO) über die Any Extension von IEnumerable<T>:

VB.NET-Quellcode

Dim fileInfo = New System.IO.FileInfo("test.pdf")
Dim ext = {".pdf", ".txt"}
If (ext.Any(Function(ex2) ex2 = fileInfo.Extension)) Then
MessageBox.Show("PDF")
End If

Sam85 · 28. Februar 2018, 10:17

@petaod Super, hab den falschen Blickwinkel gehabt, vielen Dank. Es war nur gerade in dem Beispiel, .pdf und .PDF, sonst sind es unterschiedliche Extensions.
@Radinator das sieht auch interessant aus, ist mir im Vergleich leider nicht einfacher

, gibt es eine speziellen Grund warum es einfacher ist als das andere oder hat es einen umfangreicheren Nutzen?

VB.NET-Quellcode

If ext.Contains(file.Extension) Then

petaod · 28. Februar 2018, 10:31

Sam85 schrieb:

If ext.Contains(file.Extension) Then

könntest du dennoch etwas fehlertoleranter gestalten, um die unterschiedlichen Schreibweisen abzufangen:

VB.NET-Quellcode

If ext.Contains(file.Extension.ToLower()) Then

Sam85 · 28. Februar 2018, 12:41

Dann hab ich noch eine Frage...
das hier geht nicht...

VB.NET-Quellcode

Dim attachment() As String = {strFilenameW, strFilenameX, strFileNameY, strFilenameZ}
If File.Exists(attachment.ToString) Then
attach = mMailItem.Attachments
For Each a In attachment
attach.add(a)
Next
'attach.add(attachment)
End If

aber das hier geht...

VB.NET-Quellcode

If File.Exists(strFilenameW) And File.Exists(strFilenameX) And File.Exists(strFileNameY) And File.Exists(strFilenameZ) Then
attach = mMailItem.Attachments
attach.Add(strFilenameW) : attach.Add(strFilenameX) : attach.add(strFileNameY) : attach.add(strFilenameZ)

Liegt das vielleicht am If File.Exists(attachment.ToString) Then und da an dem .ToString?
Oder ist Dim attachment() As String = {strFilenameW, strFilenameX, strFileNameY, strFilenameZ} dann kein String?

RodFromGermany · 28. Februar 2018, 12:50

Sam85 schrieb:

If File.Exists(attachment.ToString) Then

Du musst einen Index angeben, das ToString() gibt hier den Typ, also String-Array zurück.
Wenn Du alle Dateien auf Existenz testen willst, packst Du das gleich in Deine Schleife:

VB.NET-Quellcode

For Each a In attachment
If File.Exists(a) Then
attach.add(a)
End If
Next

Sam85 · 28. Februar 2018, 13:19

@RodFromGermany Perfekt, vielen Dank hab schon wieder den falschen Blickwinkel gehabt.

Radinator · 28. Februar 2018, 14:12

Sam85 schrieb:

gibt es eine speziellen Grund warum es einfacher ist als das andere oder hat es einen umfangreicheren Nutzen?

Der Vorteil der Any Extension besteht darin, dass sie eine Extension ist und keine Instanz Methode (stackoverflow.com/a/4445255/6635287) was sich in der höheren Performance wiederspiegelt. Außerdem kannst Du der Any-Methode einen Delegaten übergeben. Das bringt dir am Ende mehr Flexibilität und Du bindest dich dann nicht daran, dass Du, falls die Art, WIE das Suchkriterium verwendet werden soll (case(-in-)senitive), sich ändert, in der Contains-Zeile rum zu furhwerken. Sollte sich der Fall ergeben, dass Du für jeden akzeptablen Dateityp ein eigenes Objekt erstellen musst, kommst Du mit deiner array.ToString() nicht recht weit. Hier eignet sich das Predicate.

Lg Radinator

Sam85 · 28. Februar 2018, 15:53

Jetzt hab ich noch eine Frage zum IndexOf()
Ich Suche im file.Name nach der RG und zwar in dem expliziten Bereich. Kann ich dafür die IndexOf() Funktion verwenden? Oder brauch ich dafür was anderes?
Left bzw. Right ist dafür keine Option weil wenn der RG Bereich dann wächst, muss ich das left bzw. right erhöhen, während der file.Name Bereich stets 9 stellig bleibt.

VB.NET-Quellcode

'RG = "556140"
'file.Name, 31, 9 = "000556140"
If ext.Contains(file.Extension.ToUpper) Then
If Strings.Mid(file.Name, 31, 9).IndexOf(RG) Then
If Strings.Left(file.Name, 3) = "ERA" Then ERA = file.Name
If Strings.Left(file.Name, 3) = "SAB" Then SAB = file.Name
End If
End If

RodFromGermany · 28. Februar 2018, 16:10

Sam85 schrieb:

VB.NET-Quellcode

If Strings.Left(file.Name, 3) = "ERA" Then ERA = file.Name

machst Du

VB.NET-Quellcode

If file.ToUpper().EndsWith(".ERA") Then ERA = file.Name

Frage den Punkt mit ab, sonst würde ein .XERA-File auch erkannt werden.
.ToUpper() - klar.

VaporiZed · 28. Februar 2018, 16:31

Uh, Option-Strict-Off- und VisualBasic-Namespace-Alarm.
If Strings.Mid(file.Name, 31, 9).IndexOf(RG) Then
IndexOf gibt einen Index wieder, also das erste Auftreten einer Zeichenfolge innerhalb einer anderen. @Sam85: Das brauchst Du doch gar nicht. Und Integer als Boolean-Wert in der If-Zeile ...
Daher forenkonform:

VB.NET-Quellcode

If file.Name.Length >= 30 + RG.Length AndAlso file.Name.Substring(30, RG.Length) = RG Then

Sam85 · 28. Februar 2018, 16:32

@RodFromGermany

das "ERA" steht am Anfang und ist nicht die Extension Left.
Mir ging es um den Teil mit IndexOf()

VB.NET-Quellcode

If Strings.Mid(file.Name, 31, 9).IndexOf(RG) Then
If Strings.Mid("000554610").IndexOf("554610")

RodFromGermany · 28. Februar 2018, 16:41

@Sam85 Erwischt.

Dann eben

VB.NET-Quellcode

If file.ToUpper().StartsWith("ERA") Then ERA = file.Name

IndexOf() - Mach Dir ein kleines Testprojekt mit dem String in einer Variable und teste den Befehl.

Sam85 · 28. Februar 2018, 17:02

@RodFromGermany Testprojekt gemacht und für nicht gut erklärt

.

@VaporiZed Das mit dem [tt]Substring[/] gleich umgesetzt und Strict On...

Vielen Dank für die Unterstützung.

RodFromGermany · 28. Februar 2018, 17:16

Sam85 schrieb:

für nicht gut erklärt

Spiele mit dem Befehl, lies die MSDN und kriege raus, wie er funktioniert, so was:

VB.NET-Quellcode

Dim txt = "000554610"
Label1.Text = txt.IndexOf("554610").ToString()

If Abfrage file.Extension mit Array

If Abfrage file.Extension mit Array

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben