ASCII值与字符相互转换程序

#include <stdio.h>
#include <string.h>
#include <strings.h>
#include <stdlib.h>
/**chartoasc:char -> ascii**/
int chartoasc(char c)
{
    int i=0;
    i = c;
    return i;
}
/**asctochar:ascii -> char**/
char asctochar(int a)
{
    char c;
    c = a;
    return c;
}
int main(int argc,char *argv[])
{

    if(argc!=3)
    {
        printf("usage:a.out flag char\nflag=1:chartoasc\nflag=2:asctochar\n");
        return -1;
    }
    int flag=0;
    flag = atoi(argv[1]);
    char c ;
    char *p;
    int a ;
    if(flag==1)
    {
        p = argv[2];
        c = *p;
        printf("输入的字符:%c\n",c);
        a = chartoasc(c);
        printf("%c的ascii值是:%d\n",c,a);
    }
    if(flag==2)
    {
        a = atoi(argv[2]);
        printf("输入的ascii值是:%d\n",a);
        c = asctochar(a);
        printf("%d的字符形式是:%c\n",a,c);
    }
    return 0;

}

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: VB6.0中可以实现图片与base64格式的相互转换。 将图片转换为base64格式,可以先将图片读入到程序中,再使用Base64编码将其转换字符串形式。具体实现如下: 1. 首先需要引用Microsoft ActiveX Data Objects库,即在工具栏菜单-项目-引用中勾选“Microsoft ActiveX Data Objects X.X Library”。 2. 读取图片到程序中,可以使用FileSystemObject对象的OpenTextFile方法实现。代码如下: Dim fs As Object Dim f As Object Dim s As String Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("C:\test.jpg", 1) '1表示只读模式 s = f.ReadAll f.Close 3. 将读取到的图片数据进行Base64编码处理,可以使用Microsoft.XMLDOM对象的transformNodeToObject方法,代码如下: Dim xmlDoc As Object Dim objNode As Object Dim outStream As Object Set xmlDoc = CreateObject("MSXML2.DOMDocument") Set objNode = xmlDoc.createElement("myNode") objNode.DataType = "bin.base64" objNode.nodeTypedValue = Stream_ImageRead("C:\test.jpg") '将读取到的图片数据传递进去 xmlDoc.appendChild objNode Set outStream = CreateObject("ADODB.Stream") outStream.Type = adTypeText outStream.Charset = "utf-8" outStream.Open xmlDoc.transformNodeToObject objNode, outStream s = outStream.ReadText outStream.Close 4. 最终得到的s就是图片的base64编码字符串。 将base64格式的字符转换为图片,可以使用ADODB.Stream对象的LoadFromFile方法将base64字符转换为二进制数据,再使用SaveToFile方法将二进制数据保存为图片文件。代码如下: Dim objStream As Object Set objStream = CreateObject("ADODB.Stream") objStream.Type = adTypeBinary objStream.Open objStream.Write Replace(s, "data:image/jpeg;base64,", "") '将base64字符串中的头部去掉 objStream.SaveToFile "C:\test.jpg", adSaveCreateOverWrite objStream.Close 以上就是VB6.0中图片与base64格式的相互转换实现的方法。 ### 回答2: 在VB6.0中,需要将图片转换为Base64编码格式时,可以使用以下步骤: 1. 将图片文件打开并读取到内存中,使用FilesystemObject对象来处理文件操作。 2. 使用ADODB.Stream对象将图片读取到二进制(Byte)数组中。 3. 将二进制数组转换为Base64编码格式,可以使用MSXML2.DOMDocument对象来进行编码处理。 4. 将Base64编码后的字符串输出或者存储到需要的地方。 以下是一个VB6.0示例代码: ``` '打开图片文件 Dim fs As New FileSystemObject Dim fso As File Set fso = fs.GetFile("C:\test.jpg") '将图片文件读取到二进制数组中 Dim stream As New ADODB.Stream stream.Type = adTypeBinary stream.Open stream.LoadFromFile fso.Path Dim buffer() As Byte ReDim buffer(stream.Size - 1) stream.Read buffer '将二进制转换为Base64编码 Dim dom As New MSXML2.DOMDocument Dim elemBin As IXMLDOMElement Dim elemText As IXMLDOMText Set elemBin = dom.createElement("bin") elemBin.DataType = "bin.base64" elemBin.nodeTypedValue = buffer Set elemText = dom.createTextNode(elemBin.Text) Dim base64Str As String base64Str = elemText.Text '输出Base64字符串 MsgBox base64Str ``` 这个过程需要注意的是:大文件不能一次全部读入内存中,需要采用流方式处理。另外,还需要注意编码格式、块处理、格式化等问题。 ### 回答3: VB6.0是一种广泛应用于Windows平台上的编程语言,它可以轻松实现图片与base64的相互转换。 Base64是一种将二进制数据编码成ASCII字符的方法,通常用于在网络中传输图片、音频等二进制数据。在VB6.0中,可以通过以下方式将图片转换为base64编码: 1.将图片读取为二进制数据: Dim b() As Byte Open "C:\image.jpg" For Binary As #1 ReDim b(LOF(1) - 1) Get #1, , b Close #1 2.使用Microsoft.XMLDOM对象来生成base64编码: Dim xmlDoc As Object Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.LoadXML "<root/>" xmlDoc.DocumentElement.DataType = "bin.base64" xmlDoc.DocumentElement.NodeTypedValue = b Base64String = xmlDoc.DocumentElement.Text 如果想要将已经编码为base64的数据转换回原始图片数据,也可以通过以下方式实现: 1.将base64字符转换为二进制数据: Dim b() As Byte b = StrConv(Base64String, vbFromUnicode) b = DecodeBase64(b) 其中,DecodeBase64是一个自定义函数,用于将base64字符串解码为二进制数据。 2.将二进制数据保存为图片文件: Open "C:\image.jpg" For Binary As #1 Put #1, , b Close #1 综上所述,通过VB6.0可以轻松地实现图片与base64的相互转换

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值