Есть встроенная функция VB.net, чтобы превратить цитаты в умные цитаты - PullRequest
Новая
       22

Есть встроенная функция VB.net, чтобы превратить цитаты в умные цитаты

0 голосов
/ 25 июля 2011

Я хочу превратить

Я зависим от «арахиса» и «какао»

в

Я зависим от «арахиса» и «какао»

Как бы я это сделал?Любая встроенная функция для этого?

Ответы [ 2 ]

2 голосов
/ 25 июля 2011

Конечно, нет встроенной функции. Как же вы оставили бы первую одинарную кавычку без изменений, а вторую изменили. За этим должно быть больше логики, чтобы получить желаемый результат. Программа, которая интерпретирует английскую языковую конструкцию, я думаю

Конечно, я заметил проблему ПОСЛЕ написания чего-либо, отредактируйте это для своих нужд, чтобы оно не было написано для кошачьего хвоста 

 Function trSmart(s As String) As String
    Dim inSngl As Boolean = False
    Dim inDbl As Boolean = False
    For i = 1 To s.Length()
        If s(i - 1) = "'"c Then
            If inSngl Then
                s = s.Substring(0, i - 1) & Chr(146) & s.Substring(i)
                inSngl = False
            Else
                s = s.Substring(0, i - 1) & Chr(145) & s.Substring(i)
                inSngl = True
            End If
        ElseIf s(i - 1) = """"c Then
            If inDbl Then
                s = s.Substring(0, i - 1) & Chr(147) & s.Substring(i)
                inDbl = False
            Else
                s = s.Substring(0, i - 1) & Chr(148) & s.Substring(i)
                inDbl = True
            End If
        End If
    Next
    Return s
End Function
0 голосов
/ 26 июля 2011

Это автоматически определит, находится ли пробел перед или после строки, и будет действовать соответствующим образом. 

  Public Function SmartQuotes(ByVal someString As String) As String
        someString = " " + someString + " "
        Dim oldstring = someString
        someString = smarten(someString, "'"c, "‘"c, "’"c)
        someString = smarten(someString, """"c, Chr(147), Chr(148))
        If oldstring = someString Then
            Return Trim(someString)
        Else
            Return SmartQuotes(someString)
        End If
    End Function

    Public Function smarten(ByVal someString As String, ByVal original As Char, ByVal left As Char, ByVal right As Char) As String
        If someString.Contains(original) Then
            Dim index = someString.IndexOf(original)
            If leftQuoteorRightquote(someString, index) Then
                someString = someString.Remove(index, 1).Insert(index, left)
            Else
                someString = someString.Remove(index, 1).Insert(index, right)
            End If
        End If
        Return someString
    End Function
    Public Function leftQuoteorRightquote(ByVal somestring As String, ByVal index As Integer) As Boolean
        If somestring.Substring(index - 1, 1) = " " And somestring.Substring(index + 1, 1) <> " " Then
            Return True
        Else
            Return False
        End If
    End Function
...