txt.datei und Suche aus Userform heraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HAllo Sabine,
Schau mal ob dich das weiterbringt:

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim FSO As Object
    Dim txtDatei As Object
    Dim strText As String
    Const Pfad = "C:/Test/test.txt" 'anpassen
    If TextBox1.Text Like "########" Then 'prüfen ob n8 Ziffern eingegeben wurden
        Set FSO = CreateObject("scripting.Filesystemobject")
        Set txtDatei = FSO.opentextfile(Pfad, 1) 'Textdatei zum Lesen öffnen
        strText = txtDatei.readall 'Textdatei in string einlesen
        'txtDatei.Close 'Tetxdatei schließen
        If InStr(1, strText, TextBox1.Text) > 0 Then 'Prüfen ob die 8 Ziffern in textdatei vorhanden sind
            CheckBox1.Value = True
            Else:
            CheckBox1.Value = False
            MsgBox "Nix gefunden"
        End If
        Else:
        MsgBox "Gib 8 Ziffern ein!"
    End If
End Sub

ransi

Hallo Franz,
ich habe den Code von ransi etwas angepasst. Ich wandele die .pdf in eine .txt Datei um und speichere diese unter einer bestimmten RG-Nr. mit der Endung .txt ab. Diese RG-Nr. befindet sich auch auf der Userform. Ich habe nun eine if-Anweisung dem Code vorangestellt, so dass er nur ausgeführt wird, wenn die Textdatei vorhanden ist. Ich denke damit habe ich Deinen Gedanken bereits unbewusst umgesetzt.Ich habe garnicht soweit gedacht sondern recht gezielt einen bestimmten .txt Dateinamen vorausgesetzt.
Bei mir am Rechner daheim funktionert es gut, morgen muss ich dann im Büro auf Funktionalität im Netzwerk prüfen.
Mein Code sieht sie aus:


dateirg = RGa.Value & ".txt"  'RGa ist Feld mit der RG-Nr.
Pfad = "C:\Users\Sabine\Documents\" & dateirg 'anpassen
If Dir(Pfad) = "" Then Exit Sub
If TextBox1.Text Like "########" Then 'prüfen ob n8 Ziffern eingegeben wurden
Set FSO = CreateObject("scripting.Filesystemobject")
Set txtDatei = FSO.opentextfile(Pfad, 1) 'Textdatei zum Lesen öffnen
strText = txtDatei.readall 'Textdatei in string einlesen
'        txtDatei.Close 'Tetxdatei schließen
If InStr(1, strText, TextBox1.Text) > 0 Then 'Prüfen ob die 8 Ziffern in textdatei  _
vorhanden sind
GelBe.Value = True    'Checkbox an
Else:
GelBe.Value = False
GelBeHinweis.Caption = " fehlt"   'Hinweis erscheint in einem Beschriftungsfeld
End If
Else:
MsgBox "Gib 8 Ziffern ein!"
End If

Ich bin schon ganz gespannt ob es klappt. Nur Sorge bereitet mir der Gedanke wie "groß" der Inhalt der Variable strText sein darf. Getestet habe ich es mit einem pdf über 3 Seiten. Im Alltag werden es dann ehter 20-30 Seiten sein. Ich hoffe das geht dann trotzdem noch!?
Herzliche Grüße
Sabine

Beliebteste Forumthreads (12 Monate)

txt.datei und Suche aus Userform heraus

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

txt.datei und Suche aus Userform heraus

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread