Thema Datum  Von Nutzer Rating
Antwort
Rot Sonderzeichen
 17.11.2014 15:08:00 Wolfgang
NotSolved
17.11.2014 17:40:41 Gast30442
NotSolved
18.11.2014 07:27:32 Wolfgang
NotSolved

Ansicht des Beitrags:
Von:
Wolfgang		 Datum:
17.11.2014 15:08:00		 Views:
1592		 Rating:
     
Antwort:
  Ja
Thema:
Sonderzeichen

Liebe Forum-Gemeinde,

Ich habe eine Reihe von Dateien, die nach dem Schema xxxxx-xx.pdf benannt sind. Das sind Nummern mit Unternummern wie "12345/67", die wegen der fehlenden Möglichkeit, das Zeichen "/" in den Dateinamen zu schreiben, so benannt wurden.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
        For Each FI In FO.Files
            Datei = FI.Name
            DateiTyp = Right(Datei, InStr(1, StrReverse(Datei), ".") - 1)
            DateiName = Left(Datei, InStr(1, Datei, ".") - 1)
            If DateiTyp = "pdf" Then
                SubNumber = Right(DateiName, InStr(1, StrReverse(DateiName), "-") - 1)
                WholePath = "#" & pfad & "\" & Datei & "#"
                PosOfUnderline = InStr(1, StrReverse(DateiName), "_")
                location = Right(pfad, InStr(1, StrReverse(pfad), "\") - 1)
                location = Replace(location, "-", " ")
                If PosOfUnderline > 0 Then
                    'Dateiname der Form IP_xxxxxx-xx: IP_ ausschneiden
                    DateiNameOhneIP = Right(DateiName, InStr(1, StrReverse(DateiName), "_") - 1)
                    'jetzt in diesem String alles vor "-" zur Nummer machen
                    Number = Left(DateiNameOhneIP, InStr(1, DateiNameOhneIP, "-") - 1)
                Else
                    'in DateiName alles vor "-" zur Nummer machen
                    Number = Left(DateiName, InStr(1, DateiName, "-") - 1)
            'hier sollte eigentlich einfach das - durch / ausgetauscht werden
            'stattdessen musste ich ein zusätzliches Feld "IP_Subnummer" einfügen und füllen
        End If
                'SQL-Anweisung zusammenbasteln
                SQL_Statement = "INSERT INTO InspectionProtokoll (IP_Number,IP_Subnummer,Datei,Ort) VALUES (" & Number & _
                                ", " & SubNumber & ", '" & WholePath & "','" & location & "')"
                DoCmd.SetWarnings True
                DoCmd.RunSQL SQL_Statement
                 
            End If
        Next

Die Zahlen xxxxx und xx sollen in einen String geschrieben werden, der nach dem Schema xxxxx/xx aufgebaut ist und in ein Datenfeld des Typs string geschrieben werden. Wenn ich versuche, mit Replace() das Zeichen '-' durch '/' zu ersetzen, schreibt Access das Ergebnis Division in das Feld. Das gleiche Ergebnis erhalte ich, wenn ich die Strings mit dem &-Operator verkette und auch der Versuch, die Strings explizit mit CStr zu casten, hat nichts gebracht.

Was kann ich tun, um einen String wie "12345/67" in ein Textfeld zu bekommen?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Sonderzeichen
 17.11.2014 15:08:00 Wolfgang
NotSolved
17.11.2014 17:40:41 Gast30442
NotSolved
18.11.2014 07:27:32 Wolfgang
NotSolved