将文本文件重新改为二进制

informix数据库中,当把一个文本文件以BLOG的方式存入后,再通过unload导出时得到的是ASC码形式的文本文件。

要转成原始的文本文件通过如下方式:

FILE     *fin = NULL,   *fout = NULL; 

char    *stopstring; 

char szBuf[4] = "/0"; 

CString  str;


fin   =   fopen("d://111.txt", "rb");

fout   =   fopen("d://222.txt", "w+t"); 

 fseek(fin, 0, SEEK_SET); 

 while ( fgets( szBuf, 3, fin ) )                           
{                                                          
    int iCget = strtol( szBuf, &stopstring, 16 );            
                                                           
    str = str + (char)(iCget);                               
}                                                          
                                                           
fwrite(str,   sizeof(byte),   str.GetLength(),   fout);    
                                                           
fclose(fin);                                               
fclose(fout);

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 使用VB语言来编写一个复杂的文本文件加密程序,可以实现将选定的文本文件的内容转换为二进制形式的功能。首先,需要使用VB语言编写一段程序,该程序可以读取文本文件,并将文件的内容转换为二进制形式的字符串。其次,程序中需要实现加密算法,将读取到的字符串进行加密,并将加密后的字符串保存到文件中。最后,程序中还需要实现解密算法,来读取加密后的文本文件,并将其解密后的内容还原为原始文本内容。 ### 回答2: 使用VB语言编写一个复杂的文本文件加密程序可以实现将选定文本文件的内容改为二进制形式的功能。具体实现步骤如下: 1. 打开文本文件:首先,在程序中添加一个打开文件对话框,并允许用户选择需要加密的文本文件。通过VB的文件操作功能,打开选定的文本文件。 2. 读取文本文件内容:使用文件操作函数,读取文本文件的内容,并将其存储在一个字符串变量中。 3. 将文本内容转换为二进制形式:使用VB的字符串处理函数,将文本内容逐个字符转换为对应的ASCII码,并将其转为二进制形式的字符串。可以使用VB的Convert.ToString()函数将整数转换为二进制字符串。 4. 写入二进制内容到加密文件:创建一个新的文件,并使用文件操作函数,将转换后的二进制内容写入到新文件中。可以使用VB的StreamWriter类来实现文件的写入操作。 5. 关闭文件:完成写入后,关闭加密文件和原始文本文件。释放资源。 通过以上步骤,就可以使用VB语言编写一个复杂的文本文件加密程序,实现将选定文本文件的内容改为二进制形式的功能。该程序可以提供用户界面选择文件,并将转换后的二进制内容写入新文件中。 ### 回答3: 使用VB语言编写一个复杂的文本文件加密程序,实现以下功能:将选定文本文件的内容改为二进制形式。 首先,我们需要使用VB语言中的File IO操作读取选定的文本文件的内容。可以使用StreamReader对象打开文本文件,并逐行读取文本文件的内容。 然后,我们可以使用VB语言提供的字符串处理功能,将每行文本内容转换为二进制形式。可以使用字符串转换函数将每个字符转换为其对应的ASCII码,并将其转换为二进制字符串形式。将每个字符转换为二进制字符串后,可以将其连接起来形成一行文本的二进制表示。 接下来,我们可以将二进制形式的每行文本写入一个新的文件中。我们可以使用StreamWriter对象打开一个新的文件,将每行二进制文本写入新的文件。 最后,我们需要关闭StreamReader和StreamWriter对象以释放资源,并给出相应的提示。 下面是一个示例代码,用于实现上述功能: ```vb Imports System.IO Public Class Form1 Private Sub btnEncrypt_Click(sender As Object, e As EventArgs) Handles btnEncrypt.Click ' 选择文本文件 Dim openFileDialog As New OpenFileDialog() openFileDialog.Filter = "文本文件|*.txt" If openFileDialog.ShowDialog() = DialogResult.OK Then ' 读取选定的文本文件内容 Dim reader As New StreamReader(openFileDialog.FileName) Dim originalText As String = reader.ReadToEnd() reader.Close() ' 将文本内容转换为二进制形式 Dim binaryText As String = ConvertTextToBinary(originalText) ' 将二进制形式的文本写入新的文件 Dim saveFileDialog As New SaveFileDialog() saveFileDialog.Filter = "文本文件|*.txt" If saveFileDialog.ShowDialog() = DialogResult.OK Then Dim writer As New StreamWriter(saveFileDialog.FileName) writer.Write(binaryText) writer.Close() MessageBox.Show("文件加密成功!") End If End If End Sub ' 将文本内容转换为二进制形式 Private Function ConvertTextToBinary(text As String) As String Dim binaryText As String = "" For Each c As Char In text Dim binaryChar As String = Convert.ToString(Asc(c), 2) binaryText += binaryChar.PadLeft(8, "0"c) ' 补充至8位二进制 Next Return binaryText End Function End Class ``` 这个程序中,我们通过选择文本文件,将文本内容转换为二进制形式,并将二进制形式的文本写入新的文件中,实现了将选定的文本文件内容改为二进制形式的功能。

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值