• Registrierungsdatum: 16-05-2007
  • Beiträge: 28

Thema: VB fragen, für programmierer ne leichtigkeit

hi ich habe ein paar fragen wäre cool wenn ihr mir die beantworten könnt.

zunächstmal möchte ich einen csv export für eine tabelle schreiben die sich im programm befindet.
klappt auch wunderbar, nur schmiert das prog ab wenn excel grad drauf zugreift. das nervt.
also wie kann ich abfragen ob die datei schon verwendet wird?

zweite sache:
ich nutze in einem programm webbrowser. wie kann man strings am besten als url´s nutzen.
bzw. wie bekommt man am besten die url wieder aus dem browser raus?
ich bekomme sie zwar meistens mit der .tostring funktion raus, aber wenn die url leer ist oder bei einigen anderen vorfällen kommen von vb schwachsinnige aussagen von wegen ich müsste eine instanz mit neu erzeugen. kennt wer das problem?
im moment nutze ich dieses hier um die url zu bekommen:
webBild.Url.TryCreate(str, UriKind.Absolute, adr)
das wirft aber warnungen was nicht besonders toll ist, funktionieren tuts aber...

2 Antwort von j|g

  • j|g
  • devshare.de Team
  • Offline
  • Herkunft: München
  • Registrierungsdatum: 13-09-2000
  • Beiträge: 1.653

Re: VB fragen, für programmierer ne leichtigkeit

Mit VB kenn ich mich nicht so recht aus .. hab da mal was in Google gefunden:

1. Testen ob Dabei bereits geöffnet:

' Das File C:\TEST.XLS testen und evt. öffnen

Dim bExists As Boolean
Dim oWorkbook As Object

' erst testen, ob Datei schon geöffnet wurde
bExists = False 'auf false setzen
With Application
For Each oWorkbook In .Workbooks
If UCase$(oWorkbook.Name) = "TEXT.XLS" Then
' hier File aktivieren
Windows(oWorkbook.Name).Activate
bExists = True
Exit For
End If
Next
End With

' hier nun test.xls laden
If Not bExists Then
On Error Resume Next
Workbooks.Open Filename:="C:\TEST.XLS", ReadOnly:=False
On Error GoTo 0
End If

oder so

' Prüfen, ob Datei in Benutzung
Public Function FileInUse(ByVal sFile As String) As Boolean
Dim f As Integer

On Error Resume Next
' Versuch, Datei EXKLUSIV zu öffnen
f = FreeFile
Open sFile For Binary Lock Read Write As #f

' Bei Fehler 70 ist die Datei in Benutzung
FileInUse = (err.Number = 70)

Close #f
On Error GoTo 0
End Function
_______________________________________________________________

/-/annes (j|g) ... http://www.jg-webdesign.de

j|g's Webseite

  • Registrierungsdatum: 16-05-2007
  • Beiträge: 28

Re: VB fragen, für programmierer ne leichtigkeit

raff ich beides nich^^
was da was machen soll
es ist ausserdem noch unter .net 2005

    'CSVExport
    Private Sub ListeExpotierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListeExpotierenToolStripMenuItem.Click
        Dim ort As String
        Dim i As Integer
        Dim j As Integer

        Export.ShowDialog()
        ort = Export.FileName
        If ort <> "" Then
            Text = "NR;Q0;Q1;Q2;Q3;Q4;Gelesener Code" & Chr(13) & Chr(10)
            System.IO.File.AppendAllText(ort, Text)
            Text = ""

            'Durchsucht die Tabelle und schreibt alles in die CSV Datei die angegeben wurde
            For i = 0 To Tabelle.RowCount - 1
                For j = 0 To 6
                    Text = Text & Tabelle.Item(j, i).Value
                    If j < 6 Then Text = Text & ";"
                Next
                Text = Text & Chr(13) & Chr(10)
                System.IO.File.AppendAllText(ort, Text)
                Text = ""
            Next
        End If

        Me.Text = "2D Barcode Scanner"

    End Sub


so und wenn excel frag draus zugreif schmierts mir weg

Zuletzt bearbeitet von mutabor (10-07-2007 17:45:50)

4 Antwort von j|g

  • j|g
  • devshare.de Team
  • Offline
  • Herkunft: München
  • Registrierungsdatum: 13-09-2000
  • Beiträge: 1.653

Re: VB fragen, für programmierer ne leichtigkeit

Sry .. da weiß ich leider nicht weiter, mit VB mache ich nix. Ich befürchte, dass hier im Forum auch wenige User sind, die mit VB arbeiten.

_______________________________________________________________

/-/annes (j|g) ... http://www.jg-webdesign.de

j|g's Webseite

  • Registrierungsdatum: 16-05-2007
  • Beiträge: 28

Re: VB fragen, für programmierer ne leichtigkeit

ok habs gefunden.
ist auch so eine art on error nur eine die funktionier^^

try

programmcode


catch ex as exception

ausnahme bla bla

end try

  • Registrierungsdatum: 16-05-2007
  • Beiträge: 28

Re: VB fragen, für programmierer ne leichtigkeit

so neue frage für vb fans:

ich gebe in dem programm eine ip ein, jetzt will ich überprüfen ob es diese gibt, vielleicht mit ping oder so.
wer weiß wie das geht oder hat nen besseren vorschlag