=
34.236.145.124

Daschmi's Notizblog

RSS Feed

Prefix im indexed_search Pager ausblenden / übersetzen

Erstellt in TS Schnipsel, TYPO3 am 14. Dezember 2018

In TYPO3 9 kann die Übersetzung von „Seite %d“ im Pager durch folgenden Language Key übersetzt werden:

plugin.tx_indexedsearch._LOCAL_LANG.default.displayResults.page =
plugin.tx_indexedsearch._LOCAL_LANG.de.displayResults.page =
plugin.tx_indexedsearch._LOCAL_LANG.fr.displayResults.page =
plugin.tx_indexedsearch._LOCAL_LANG.es.displayResults.page =
plugin.tx_indexedsearch._LOCAL_LANG.it.displayResults.page = 

Hier habe ich es im Beispiel ausgeblendet, damit nur die reine Zahl dargestellt wird.

Weiterhin gibt es noch folgende Schlüssel zum übersetzen:

plugin.tx_indexedsearch._LOCAL_LANG.default.displayResults.next =
plugin.tx_indexedsearch._LOCAL_LANG.default.displayResults.previous =

Nummern nach letzter Zahl/Zeichen alphabetisch oder numerisch hochzählen in VisualBasic / VB

Erstellt in Sonstiges am 10. Dezember 2018

Hat man eine Nummer und möchte dynamisch eine Folgenummer bilden, die sich nach dem letzten Zeichen richtet, kann man in Visual Basic folgende Funktion verwenden:

Imports System.Text.RegularExpressions

Module VBModule

    Function NextLetter(c As String) As String

        If c = "Z" Then

            Return "Z-1"

        ElseIf c = "z" Then

            Return "z-1"

        End If

        Return Chr(Asc(c) + 1)

    End Function

    Function NextNr(ByVal val As String) As String

        Dim regPatternNumber As String = "\d+$"
        Dim regNumber As Regex = New Regex(regPatternNumber)
        Dim matchNumber As Match = regNumber.Match(val)

        Dim regPatternChar As String = "[A-Za-z]+$"
        Dim regChar As Regex = new Regex(regPatternChar)
        Dim matchChar As Match = regChar.Match(val)

        If matchNumber.Success Then

            Dim NextNumber As Integer = Convert.toInt32(matchNumber.value)
            NextNumber = NextNumber + 1

            Return Regex.Replace(val, regPatternNumber, cstr(NextNumber))

        ElseIf matchChar.Success Then

            Return Regex.Replace(val, regPatternChar, NextLetter(matchChar.value))

        Else

            Return val + "-1"

        End If

        Return "_"

    End Function

    Sub Main()

        Console.WriteLine(NextNr("A/1"))
        Console.WriteLine(NextNr("A/1/B"))
        Console.WriteLine(NextNr("A/1/Z"))
        Console.WriteLine(NextNr("A/1/["))
        Console.WriteLine(NextNr("A/1/10"))

    End Sub

End Module

Die gleiche Funktion in PHP findet man hier.



Bitte genehmigen Sie die Verwendung von Cookies dieser Website! Mehr Informationen

Die Cookie-Einstellungen auf dieser Website sind auf "Cookies zulassen" eingestellt, um das beste Surferlebnis zu ermöglichen. Wenn du diese Website ohne Änderung der Cookie-Einstellungen verwendest oder auf "Akzeptieren" klickst, erklärst du sich damit einverstanden.

Schließen