vb 文本格式转换
Private Sub Command1_Click()
Dim H() As String, L() As String, i As Integer, j As Integer
Dim SaveFile As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject(“Excel.Application”) ‘创建EXCEL对象
Set xlBook = xlApp.Workbooks.Add ‘打开已经存在的EXCEL工件簿文件
xlApp.Visible = True ‘设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(“Sheet1”) ‘设置活动工作表
‘下面进行文本导入
H = Split(Text1.Text, vbNewLine)
For i = 0 To UBound(H)
L = Split(H(i), “,”)
For j = 0 To UBound(L)
xlSheet.Cells(i + 1, j + 1) = L(j) ‘给单元格（row,col）赋值
Next
Next
SaveFile = “c:\1.xls” ‘你可以在此修改保存的文件名称
If Dir(SaveFile) <> “” Then Kill SaveFile
xlBook.SaveAs FileName:=SaveFile ‘保存工作表,结束时一定别忘了保存
xlBook.Close (True) ‘关闭工作簿 这里的True表示退出时保存修改
xlApp.Quit ‘结束EXCEL对象
Set xlApp = Nothing ‘释放xlApp对象
MsgBox “文件已成功导出到” & SaveFile
End Sub
VB 格式转换强人进(raw – >bmp???)
bmp???)” />
图像不太懂,但是查了一下,好像RGB565就是BMP格式的, 加个BMP的开头好像就可以了吧 http://hi.baidu.com/kofeffect/blog/item/ebad5013e25ff720dd540148.html 这里有一些C的东西,不过很简单,里面有比较具体的格式信息 按这个网址的写可能会好些 http://hi.baidu.com/kofeffect/blog/item/ebad5013e25ff720dd540148.html 虽说不是VB,但是VB里面定义也很容易啊
如何用VB实现格式转换？
正如楼上所说 每个文件都有自己的储存方式 你说的转换器 是音乐文件转换器？
如果是的话那么原理是 每种格式的音频文件都有不同的编码方式
通过编码的转换来达到格式的转换
你想写一个转换的程序的话，你要知道两种数据的格式，举个例子说明：
比方说我有一个字符串：aaabbbccc ,我可以用3a3b3c来保存，也可以直接用aaabbbccc来保存，那两种格式的转换你就很清楚了，如果是第一种字符串，你可以先读数字也就是重复次数，再读要重复的字符，3a3b3c,就可以转成aaabbbccc,如果是第二种字符串，你读字符，再看这个字符重复了多少次，就轮换成了第二种字符串。明白??
所以说 如果你知道文件储存的方式 那么你就能写出对应的转换程序！
这个同字符串加密和解密有很大的相似之处！
希望能帮助到你 不懂请追问！
VB文本格式转换问题
关于回答的补充:
截取字符用mid函数,从哪里截取,截取多少都可以设置
Mid 函数
返回 Variant (String)，其中包含字符串中指定数量的字符。
语法
Mid(string, start[, length])
Mid 函数的语法具有下面的命名参数：
部分 说明
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 (“”)。
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。
说明
欲知 string 的字符数，可用 Len 函数。
======================
a=”123″ & vbcrlf & “345” & vbcrlf & “789”
b=replace(a,vbcrlf,””)
msgbox b
不知道是不是你要的效果,把换行符替换成空就行了
VB 图片格式转换
Private Sub Command1_Click() Dim pic As IPictureDisp Set pic = LoadPicture(＂e:\1.jpg＂) SavePicture pic, ＂e:\1.bmp＂ End Sub
VB类型转换?????
问题在于 你想把＂#＂转化成 的单精度数值为 几? 不如用if…then… 来实现(或是自己编一个函数来实现非数值表达式 转化为数值 的功能) CSng() 里面参数是 数值表达式 可以转 比如CSng(＂123.456＂) 而这类 CSng(＂a＂)、CSng(＂#＂)…. 系统不知道 你想把它转成什么
vb数据类型怎么转换？
1. CType(X)
[格式]：
P=CBool(X) ‘ 将X转换为”布尔”（Boolean）类型
P=CByte(X) ‘ 将X转换为”字节”（Byte）类型
P=CCur(X) ‘ 将X转换为”金额”（Currency）类型
P=CDate(X) ‘ 将X转换为”日期”（Date）类型
P=CDbl(X) ‘ 将X转换为”双精度”（Double）类型
P=CInt(X) ‘ 将X转换为”整型”（Integer）类型
P=CLng(X) ‘ 将X转换为”长整型”（Long）类型
P=CSng(X) ‘ 将X转换为”单精度”（Single）类型
P=CStr(X) ‘ 将X转换为”字符串”（String）类型
P=Cvar(X) ‘ 将X转换为”变体型”（Variant）类型
P=CVErr(X) ‘ 将X转换为Error值
[ 范例 ]：
(1). CStr(13)+CStr(23)’ 数值转换成字符串后，用”+”号连接， 结果：1323
(2). CInt(“12”)+12′ 字符串转换成整型后与12相加， 结果：24
(3). P=CInt(True)’ 输出结果为-1′ 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False存为0
(4). CBool(-0.001)’ 输出结果为True
‘ 将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True.
2. Int(X),Fix(X)：取X的整数值
[格式]：
P=Int(X) ‘ 取<=X的最大整数值
P=Fix(X) ‘ 取X的整数部分，直接去掉小数
[范例]：
(1) Int(-54.6) ‘ 结果为-55，取<=-54.6的最大整数
(2) Fix(54.6) ‘ 结果为54，取整数并直接去掉小数
1.数据类型在数据结构中的定义是一个值的集合以及定义在这个值集上的一组操作。
2.变量是用来存储值的所在处，它们有名字和数据类型。变量的数据类型决定了如何将代表这些值的位存储到计算机的内存中。在声明变量时也可指定它的数据类型。所有变量都具有数据类型，以决定能够存储哪种数据。
3.数据类型包括原始类型、多元组、记录单元、代数数据类型、抽象数据类型、参考类型以及函数类型。
VB下文本框内的时间格式的转换
建一个Command1,Text1. 代码如下. ================== Private Sub Command1_Click() Text1.Text = FormatDateTime(Text1.Text, vbShortDate) End Sub
怎样把vbp或vbf格式转换为exe格式?
你的是什么版本6.0?打开文件菜单找到生成exe文件积可.
vb 时间格式转换
format(dtpicker1.value,＂mm/dd/yyyy＂)