Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Text wird im sevtext nicht angezeigt.
Autor: Brauner
Datum: 10.05.10 15:22
Hallo Dieter, der code für zeilenopenlines brauner Private Sub ZeilenopenLines(ByVal Filename As String, ByRef tbout As TextBox, _ ParamArray arrFindLines() As Variant) Dim l As Integer Dim Laenge As Integer Dim position As Integer Dim o As Integer Dim Dateiname As String Dim Positionzwei As Integer Dim Dateivorname As String Dim Laengezwei As Integer Laenge = Len(Filename) ' Anzahl der zeichen im Dateiname Do l = InStr(l + 1, Filename, "\") ' Durchsucht den Namen nach \ If l = 0 Then Exit Do position = l Loop Dateiname = Right(Filename, Laenge - position) ' Zeichen bis zum Dateiende abtrennen ' ab hier die Dateiendung abtrennen Laengezwei = Len(Dateiname) ' Anzahl der Zeichen des Dateinamen Do o = InStr(o + 1, Dateiname, ".") If o = 0 Then Exit Do Positionzwei = o Loop Dateivorname = Left(Dateiname, Positionzwei - 1) ' -1 weil der "." Punkt fehlen soll Dim fno As Integer Dim filecontent As String Dim n As Integer Dim k As Integer Dim Zeichen As String Dim Kunde As String Dim Bauteil As String Dim hopdateientext As String Dim Bezeichnung As String Dim leerstring As String Dim Klammerpaar As String Dim hochklammer As String Dim laengedrei As Integer Dim zahlen As String Dim position_1 As String Dim position_2 As String Dim zeichenzwei As String Dim zeichendrei As String Dim zeichenvier As String Kunde = sevText4.Text Bauteil = sevText5.Text Zeichen = "/T" zeichenzwei = "/N" zeichendrei = "/K" zeichenvier = "/F" leerstring = " " Klammerpaar = """""" hochklammer = """" fno = FreeFile Open Filename For Input As #fno While Not EOF(fno) n = n + 1 Line Input #fno, filecontent 'array bis zum zahlenanfang durchsuchen For k = 0 To UBound(arrFindLines) If n = arrFindLines(k) Then position_1 = InStr(1, filecontent, "=") position_1 = position_1 + 1 ' array bis zum zahlenende durchsuchen position_2 = InStr(1, filecontent, ";") laengedrei = position_2 - position_1 zahlen = Mid(filecontent, position_1, laengedrei) hopdateientext = hopdateientext & " " & zahlen sevText1.Text = hopdateientext & vbCrLf End If Next Wend Close #fno Bezeichnung$ = Dateivorname hopdateientext = Zeichen & " " & hopdateientext hopdateientext = hopdateientext & leerstring$ & "1" & leerstring$ & "0" & leerstring$ & "0" _ & leerstring$ & "0" & leerstring$ & Klammerpaar$ & leerstring$ & leerstring$ & hochklammer$ _ & leerstring$ & hochklammer$ & leerstring$ & hochklammer$ & Bezeichnung$ & hochklammer$ & leerstring$ _ & Klammerpaar$ & leerstring$ _ & Klammerpaar$ & leerstring$ _ & Klammerpaar$ & leerstring$ & Klammerpaar$ sevText3.Text = zeichenzwei & leerstring$ & Kunde & leerstring$ & Bauteil & vbCrLf _ & zeichendrei & vbCrLf _ & zeichenvier & vbCrLf _ & hopdateientext End Sub

Text wird im sevtext nicht angezeigt.	1.098	Brauner	09.05.10 09:21
Re: Text wird im sevtext nicht angezeigt.	730	Dieter	10.05.10 06:20
Re: Text wird im sevtext nicht angezeigt.	708	Brauner	10.05.10 09:17
Re: Text wird im sevtext nicht angezeigt.	685	Dieter	10.05.10 09:22
Re: Text wird im sevtext nicht angezeigt.	693	Brauner	10.05.10 09:52
Re: Text wird im sevtext nicht angezeigt.	670	Brauner	10.05.10 15:21
Re: Text wird im sevtext nicht angezeigt.	917	Brauner	10.05.10 15:22
Re: Text wird im sevtext nicht angezeigt.	697	Dieter	10.05.10 15:29
Re: Text wird im sevtext nicht angezeigt.	695	Brauner	10.05.10 20:47
Re: Text wird im sevtext nicht angezeigt.	698	Dieter	11.05.10 06:16

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen