2017-03-31 9 views
1

ユーザーがAccessからXMLファイルにデータをエクスポートしようとしましたが、無効なXMLエラーが発生しています。我々は無効な文字を削除する方法を見て、このフィールドを横切って走った:。これはAccessの文字ですか?

このフィールドはパイプバーではありません。このフィールドをメモ帳に貼り付けると、ENQが表示されます。 Invalid Characters in XMLに基づく無効なXML文字ではないようです。

編集:ここで、表示されるまで表示されません。それは私のエディタでどのように見えるかにリンクされています時々私は干し草の山で針を捜すためにそれが必要見つける

enter image description here

+0

https://en.wikipedia.org/wiki/Enquiry_character – Will

+0

ユーザーはそれをどのように入力しますでしょうか?それは文字列の真ん中に入力されました(例: "JO [This Character] BS) – ferensilver

+0

さまざまな方法がありますが、最終的に誰が気にしますか?それはあります。 – Will

答えて

0

- 表示されない文字。文字列内の文字を確認したい場合は、次のコードを試してみてください。それはあなたが一般的な文字をスキップすることができます...

Dim YourString As String 
Dim blnSkipNbr As Boolean 
Dim blnSkipUC As Boolean 
Dim blnSkipLC As Boolean 
Dim blnSkipSpecial As Boolean 
blnSkipNbr = True   ' Set to tru to not display numbers 
blnSkipUC = True   ' Skip UC 
blnSkipLC = True   ' Skip LC 
blnSkipSpecial = True  ' Skip special 

' 32-47 = Special (space, !,(), etc.) 
' 48-57 = 0 to 9 
' 65-90 = A to Z 
' 97-122 = a to z 

YourString = "Now is the time...!#$" & vbCrLf 

For i = 1 To Len(YourString) 
    char = Mid(YourString, i, 1) 
    Do 
    If blnSkipNbr = True And Asc(char) >= 48 And Asc(char) <= 57 Then Exit Do 
    If blnSkipUC = True And Asc(char) >= 65 And Asc(char) <= 90 Then Exit Do 
    If blnSkipLC = True And Asc(char) >= 97 And Asc(char) <= 122 Then Exit Do 
    If blnSkipSpecial = True And Asc(char) >= 97 And Asc(char) <= 122 Then Exit Do 
     Debug.Print "In position " & i & " of string: Char: " & ">" & char & "<" & vbTab & vbTab & "Asc(" & Asc(char) & ")" 
     Exit Do 
    Loop 
Next i