VB程序员博客

如下：如何用VB实现提取DCHNO对应的数据？如果回答得好，追加给分，第一次发帖！！！！

XXXX
ABCDEF1

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                4      0        2    NO      48    ON    516
                                  3                        545
                                                            576
                                                            593
                                                            631
2                0      0        2    NO      47    OFF  550

XXXX
ABCDEF2

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0              14      0        2    NO      33    ON    519
                                  3                        543
                                                            562
                                                            566
                                                            573
                                                            576
                                                            611
                                                            615
                                                            623
2                2      0        2    NO      39    OFF  620
                                  3

XXXX
ABCDEF3

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                3      0        2    NO      24    ON    517
                                                            541
                                                            557
                                                            592
                                                            595
                                                            599
                                                            606
2                0      0        2    NO      13    OFF  545line input #文件号,字符串变量读表？
一行一行读吧，然后用split(input," ")之类的分割
把空内容去掉，就得到你的数组了……text文件是什么格式？
fixed，tabed/空格分的？用 split ，很简单的，你要取哪个数？谢谢大家都回答，我没说明我的目的，对不起；
是这样的，我要提取的是DCHNO对应下面的数字，其实用TXT打开是很规范的，不知道发上来怎么会变扭曲了。
比如：
DCHNO
541
557
592
592
592                                                         
谢谢大家                                                          我发现你贴出来的文本内容本身就是错位的啊。
如果是“规范”的，提取数据很容易。

可不可以提供个实际样本来看一下呢？
如果文件比较大，可以只提供一部分数据。
不难考到excel ，在数据拆分，用距离拆分就行<

如下：如何用VB实现提取DCHNO对应的数据？如果回答得好，追加给分，第一次发帖！！！！

XXXX
ABCDEF1

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                4      0        2    NO      48    ON    516
                                  3                        545
                                                            576
                                                            593
                                                            631
2                0      0        2    NO      47    OFF  550

XXXX
ABCDEF2

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0              14      0        2    NO      33    ON    519
                                  3                        543
                                                            562
                                                            566
                                                            573
                                                            576
                                                            611
                                                            615
                                                            623
2                2      0        2    NO      39    OFF  620
                                  3

XXXX
ABCDEF3

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                3      0        2    NO      24    ON    517
                                                            541
                                                            557
                                                            592
                                                            595
                                                            599
                                                            606
2                0      0        2    NO      13    OFF  545line input #文件号,字符串变量读表？
一行一行读吧，然后用split(input," ")之类的分割
把空内容去掉，就得到你的数组了……text文件是什么格式？
fixed，tabed/空格分的？用 split ，很简单的，你要取哪个数？谢谢大家都回答，我没说明我的目的，对不起；
是这样的，我要提取的是DCHNO对应下面的数字，其实用TXT打开是很规范的，不知道发上来怎么会变扭曲了。
比如：
DCHNO
541
557
592
592
592                                                         
谢谢大家                                                          我发现你贴出来的文本内容本身就是错位的啊。
如果是“规范”的，提取数据很容易。

可不可以提供个实际样本来看一下呢？
如果文件比较大，可以只提供一部分数据。
不难考到excel ，在数据拆分，用距离拆分就行<

如下：如何用VB实现提取DCHNO对应的数据？如果回答得好，追加给分，第一次发帖！！！！

XXXX
ABCDEF1

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                4      0        2    NO      48    ON    516
                                  3                        545
                                                            576
                                                            593
                                                            631
2                0      0        2    NO      47    OFF  550

XXXX
ABCDEF2

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0              14      0        2    NO      33    ON    519
                                  3                        543
                                                            562
                                                            566
                                                            573
                                                            576
                                                            611
                                                            615
                                                            623
2                2      0        2    NO      39    OFF  620
                                  3

XXXX
ABCDEF3

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                3      0        2    NO      24    ON    517
                                                            541
                                                            557
                                                            592
                                                            595
                                                            599
                                                            606
2                0      0        2    NO      13    OFF  545line input #文件号,字符串变量读表？
一行一行读吧，然后用split(input," ")之类的分割
把空内容去掉，就得到你的数组了……text文件是什么格式？
fixed，tabed/空格分的？用 split ，很简单的，你要取哪个数？谢谢大家都回答，我没说明我的目的，对不起；
是这样的，我要提取的是DCHNO对应下面的数字，其实用TXT打开是很规范的，不知道发上来怎么会变扭曲了。
比如：
DCHNO
541
557
592
592
592                                                         
谢谢大家                                                          我发现你贴出来的文本内容本身就是错位的啊。
如果是“规范”的，提取数据很容易。

可不可以提供个实际样本来看一下呢？
如果文件比较大，可以只提供一部分数据。
不难考到excel ，在数据拆分，用距离拆分就行<

比如有段sql语句
rs.open "select * form table1"
假如table1不存在怎么捕捉到这个错误而不是报错，比如得到不存在表的信息，msgbox "此数据表不存在"openschema（）这个方法可以知道数据库中有哪些表
好像只适合mdbinformix里
select count（㗯𜉠from systables where tabname = '…'

请问MSHFlexGrid如何显示数据集指定列，例如
MSHFlexGrid的第x列显示Recordset.Fields(y)
请指教，谢谢帮顶的？ 改下sql。我的意思是不改sql，直接设置MSHFlexGrid是不是绑定的？
改sql很难么？帮定多不方便啊  自己写吧2种方法：
1、直接数据绑定，右键>属性，自己设置
2、未绑定，动态插入数据时指定表头和数据<
继续求教，谢谢

MSHFlexGrid1.TextMatrix(某行, 某列) = Recordset.Fields("某字段名")
到罗马，本来有飞机的，一定要走去，随你。

sql查询出来的结果，想写进access，但是提示出错：数据类型不匹配。
sql字段中的类型是float，access我是设置成数字类型的，那要设置成什么类型就正确了呢，或者用什么函数转换一下数据类型呢。谢谢Access 设计表时，除了数据类型选“数字”，下面的字段大小还要选“单精度型”。双精度型
money型
谢谢。

Access数据库，a表中有字段b，b列的数据有像这样子的：

2009-1-3
2009-01-03
2009-10-25
2009/2/5
2009/02/05
2009/11/21

如何将这些字符型数据用SQL语句（select…from…）转成日期型的

小弟本来想用下面这帖中的方法来实现，无奈没成功，呵呵

http://topic.csdn.net/u/20100117/02/27e48d91-ab06-4519-835b-50f8a6858f65.html　

<

假如我想在程序中作一个设置对话框，那么这里设置的数值怎么才能保存起来供下次使用呢？

是否保存到注册表里？这个ms有难度，但我想可以的

还是保存到程序哪个文件里？

能具体讲讲哪个函数吗？
举个例子更好

各位好，现在正在做一程序，vb和西门子plc，s7-300通讯的项目。上位机接受数据成功了 ，然后不知道发送数据应该如何写。协议是：上位机接受40字节。发送25字节。第一位起始位255，
具体代码如下
Private Sub MSComPLC_OnComm()
  Dim buffer As Variant
  Dim InString(0 To PLCRxCount - 1) As Byte
  Dim i As Integer
  Dim SupplyNum As Integer
  Dim CheckInt As Integer
  Dim CheckByte As Byte
  Dim errTemp As Integer
 
' On Error GoTo Err
 
  Select Case MSComPLC.CommEvent
      '==================================================================
      ' 接收数据
      '==================================================================
      Case comEvReceive
         
          MSComPLC.InputLen = 0
          buffer = MSComPLC.Input
       
          For i = 0 To PLCRxCount - 1
            InString(i) = buffer(i)
          Next i
          '==================================================================
          ' 检查数据完整性/ 计算校验和
          '==================================================================
          CheckInt = 0
          For i = 0 To PLCRxCount - 2
              CheckInt = CheckInt + InString(i)
          Next i
          CheckByte = CheckInt Mod 256
          '==================================================================
          ' 更新上纸台信息，并设置Refresh标志以便更新显示
          '==================================================================
          If (InString(0) = 255) And (CheckByte = InString(PLCRxCount - 1)) Then
            '上纸台可以接受命令
            If InString(1) And 1 Then
                Supply(1).RightReady = True
            Else
                Supply(1).RightReady = False
            End If

End Select
  Exit Sub
Err:
    LblError.Caption = "MsComPLC:" & Err.Description
    Resume Next
End Sub

Private Sub TmPLC_Timer()
    Dim OutString(0 To PLCTxCount - 1) As Byte
    Dim CheckInt As Integer
    Dim j As Integer
    Dim i As Integer
    Dim AndBit As Integer
   
    ' 特征字节
    OutString(0) = 255
    '自动发纸命令
    AndBit = 1
    For i = 1 To 3
        If Supply(i).RightTransmit Then
          OutString(1) = OutString(1) + AndBit
        ElseIf Supply(i).LeftTransmit Then
          OutString(1) = OutString(1) + AndBit * 2
        End If
        AndBit = AndBit * 4
    Next i
    AndBit = 1
    For i = 4 To SUPPLY_NUMBER
        If Supply(i).RightTransmit Then
          OutString(2) = OutString(2) + AndBit
        ElseIf Supply(i).LeftTransmit Then
          OutString(2) = OutString(2) + AndBit * 2
        End If
        AndBit = AndBit * 4
    Next i

    ' 急停与复位
    AndBit = 1
    For i = 1 To SUPPLY_NUMBER
        If Supply(i).Stop Then OutString(3) = OutString(3) + AndBit
        AndBit = AndBit * 2
    Next i
    '手动命令
    For i = 1 To SUPPLY_NUMBER
        If Supply(i).mode = MANUAL_MODE Then
          OutString(3 + i) = Supply(i).Order
        Else
          OutString(3 + i) = 0
        End If
    Next i
       
    '自动模式
    AndBit = 1
    For i = 1 To SUPPLY_NUMBER
        If Supply(i).mode = AUTO Then OutString(10) = OutString(10) + AndBit
        AndBit = AndBit * 2
    Next i
    '手动模式
    AndBit = 1
    For i = 1 To SUPPLY_NUMBER
        If Supply(i).mode = MANUAL_MODE Then OutString(11) = OutString(11) + AndBit
        AndBit = AndBit * 2
    Next i
    '故障模式
    AndBit = 1
    For i = 1 To SUPPLY_NUMBER
        If Supply(i).mode = ERROR_MODE Then OutString(12) = OutString(12) + AndBit
        AndBit = AndBit * 2
    Next i
    '故障恢复信号
    AndBit = 1
    For i = 1 To SUPPLY_NUMBER
        If Supply(i).Reset Then OutString(13) = OutString(13) + AndBit
        AndBit = AndBit * 2
    Next i
   
    ' 校验字节，由计算确定
    CheckInt = 0
    For j = 0 To PLCTxCount - 2
        CheckInt = CheckInt + OutString(j)
    Next j
    OutString(PLCTxCount - 1) = CheckInt Mod 256
     
    Labout.Caption = ""
    For i = 0 To PLCTxCount - 1
    Labout.Caption = Labout.Caption + " " + CStr(OutString(i))
    Next i
   
    '==========================================================================
    ' 发送通讯字节内容
    '==========================================================================
    MSComPLC.InBufferCount = 0
    MSComPLC.Output = OutString
             

End Sub
但是发送就是不通，是不是在timer里面写发送的代码啊？还请各位指教一下

谢谢,忘记timer设置了，总感觉哪里少点东西就是不知道如何写，多谢提醒。

本地输入数据。然后点查询后提交数据给网站的服务器，（控件）接受他返回的数据然后显示出来，请问是用Inet控件好还是只用Webbrowser控件。还是两个结合起来好呀。
（注：根据输入的数据到相应的网站上查询，再接受返回的数据，并以网页形式显示）

如果两个结合起来用，那getchunk接受后的数据怎么以网页形式显示在webbrowser中，不会webbrowser解析HTML。

请大家给点思路，用哪个控件做呀

学习VB没多久，望各位牛人帮忙下

呵呵是啊