Re: How to dump a table into an msdos text file

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: Dirk Goldgar (dg_at_NOdataSPAMgnostics.com)
Date: 04/12/04


Date: Mon, 12 Apr 2004 11:22:54 -0400

NOTE: In your reply, please trim the newsgroups to only
microsoft.public.access.modulesdaovba, since that's the only one that
seems relevant.

Further comments inline ...

"Ruby Tuesday" <rubytuzdayz@yahoo.com> wrote in message
news:c5e7i4$lhei$1@ID-205437.news.uni-berlin.de
>
> The character I have problem with is fractions(1/4, 1/2, 3/4,1/8,
> 3/8, 5/8) and international character with either a backtick on top
> of e or a single quote on top of e(I guess its french).

I'm not aware of the 1/8, 3/8, 5/8 characters. What font are you using?
I think the other characters you describe are accented characters.

> How do you find out if the character is beyond the regular ASCII
> table? And how to convert it so the text can display them.

It seems that your problem is that these characters are beyond the
values ASCII values 0-127, which are pretty much standardized. To
identfy them in a string, you can use the ASC() function to check the
ASCII value of each character to see if it's over 127. For example, the
following little code procedure will display (in the Immediate Window) a
list of all such characters in a given string, and how many times they
occur.

'---- start of "air code" -----
Sub ListNonstandardCharacters(ArgText As String)

    Dim alngChars(128 To 255) As Long
    Dim lngI As Long
    Dim intAsc As Integer

    For lngI = 1 to Len(ArgText)
        intAsc = Asc(Mid$(ArgText, lngI, 1))
        If intAsc > 127 Then
            alngChars(intAsc) = alngChars(intAsc) + 1
        End If
    Next lngI

    For intAsc = 128 to 255
        If alngChars(intAsc) > 0 Then
            Debug.Print _
                "Char " & Chr(intAsc) & ", ASCII " & intAsc & _
                ", occurs " & alngChars(intAsc) & " times"
        End If
    Next intAsc

End Sub
'---- end of "air code" -----

-- 
Dirk Goldgar, MS Access MVP
www.datagnostics.com
(please reply to the newsgroup)


Relevant Pages

  • Re: Concatenated string problem
    ... Go to tools, options, results tab and change the value of Maximum ... characters per column up to 8000. ... Please reply to the newsgroups only unless you are interested in consulting services. ... > My problem is that this concatenated string shows only> 256 characters, ...
    (microsoft.public.sqlserver.programming)
  • Re: How to dump a table into an msdos text file
    ... please trim the newsgroups to only ... I think the other characters you describe are accented characters. ... list of all such characters in a given string, ... Dim intAsc As Integer ...
    (microsoft.public.access.formscoding)
  • Re: How to dump a table into an msdos text file
    ... please trim the newsgroups to only ... I think the other characters you describe are accented characters. ... list of all such characters in a given string, ... Dim intAsc As Integer ...
    (microsoft.public.access.modulesdaovba)
  • Re: newbie: cant compile program
    ... print the string to the screen. ... the left is a pointer. ... This loop will read up to 149 characters 150 times. ... have an appropriate newsgroups line in your header for your mail to be seen, ...
    (comp.lang.c.moderated)
  • Re: ok characters
    ... > newsgroups devoted exclusively to .NET programming. ... >> however I want to define the string of characters that AREN'T ok ... does the _tcscspn function have ...
    (microsoft.public.vb.general.discussion)