[Линда Кайе]

#post-id: 3549-19-30
#original-date: 14.04.2010 Wed
#original-time: 7:30 PM
#original-day:  3549
#original-host: WinXP Prof SP2 (Build 2600)

Лень победила ^^ INI файл остаётся ^^ Зато наконец оформились две функции:

Private Function UnescapeINIString(ByVal Text As BStr) As BStr
  Text = Replace(Text, "\r", CR)
  Text = Replace(Text, "\n", LF)
  Text = Replace(Text, "\t", A_TAB)
  Text = Replace(Text, "\""", """")
  Text = Replace(Text, "\'", "'")
  Text = Replace(Text, "\\", "\")
  
  UnescapeINIString = Text
End Function

Private Function EscapeINIString(ByVal Text As BStr) As BStr
  Text = Replace(Text, "\", "\\")
  Text = Replace(Text, CR, "\r")
  Text = Replace(Text, LF, "\n")
  Text = Replace(Text, A_TAB, "\t")
  Text = Replace(Text, """", "\""")
  Text = Replace(Text, "'", "\'")
  
  EscapeINIString = Text
End Function

И вот как они используются. Для начала как оно читается:

Me.txtCaption.Text = asReadStringFromINI("Post Properties", "Last Caption", "", GetGroupINIFileName())
Me.txtCaption.Text = UnescapeINIString(Me.txtCaption.Text)

А вот так пишется. Комментарий всё поясняет ^^

' Так! Тут у нас в INI файл идёт текст обрамлённый кавычками. Это
' чтобы при чтении кавычки отбросились, и функция не трогала все
' остальные кавычки. А то задолбала их срезать... EscapeINIString()
' делает другое полезное дело - ескейпит на манер C строку так,
' чтобы она соответствовала формату INI файла. Заметим, что
' дополнительные кавыычки не ескейпятся.
asWriteStringToINI "Post Properties", "Last Caption", """" & EscapeINIString(Me.txtCaption.Text) & """", GetGroupINIFileName()

#music: Scooter\Mind The Gap\Panties Wanted