搜索
编程论坛 → 数据库技术 → 『 VFP论坛 』 → csyx来帮我解决几个问题，谢谢！
标题：csyx来帮我解决几个问题，谢谢！
取消只看楼主
hytizj023
Rank: 1
等　级：新手上路
帖　子：166
专家分：7
注　册：2023-3-2
结帖率：100%
楼主
 已结贴√  问题点数：20 回复次数：5 
csyx来帮我解决几个问题，谢谢！

url = '*****************************'
oHttp = NewObject('Msxml2.XMLHTTP')
oHttp.open('GET', url, .F.)
oHttp.send()
cc = oHttp.responseText
cc = STREXTRACT(cc, '<tbody id="pagedata">', '    <!-- END -->')
cc = STREXTRACT(cc, "<tr id='tr29'", "<td  class='z_bg_05'>")
qihao=STREXTRACT(cc, "<td class='z_bg_05'>", "</td>", 2)
shijihao=STREXTRACT(cc, "<td class='z_bg_05'>", "</td>", 3)
jianghao=STREXTRACT(cc, "<td class='z_bg_13'>", "</td>")

sqlexec(nHandle,"select * from 基础数据 ","核对期数")
SELECT 核对期数
GO BOTTOM
SCATTER TO qi
qishu=qi(1)
IF ALLTRIM(qishu)=ALLTRIM(qihao)
MESSAGEBOX('当前数据已是最新数据，无需更新！','系统提示')
EXIT
ELSE

baiwei=left(jianghao,1)&&取左边第一位获取百位
shi=LEFT(jianghao,2)&&取前两位
shiwei=RIGHT(shi,1)&&取右边第一位获取十位
gewei=RIGHT(jianghao,1)&&个位
**********************************************************

s_baiwei=left(shijihao,1)&&取左边第一位获取百位
s_shi=LEFT(shijihao,2)&&取前两位
s_shiwei=RIGHT(s_shi,1)&&取右边第一位获取十位
s_gewei=RIGHT(shijihao,1)&&个位

缩写下面的代码：
此处省略了一些代码
IF daxiaoxingtai="大大大"
sqlexec(nHandle,"update 基础数据 set 大小比='3:0' where 期号=?qihao")
ENDIF
IF daxiaoxingtai="大大小"
sqlexec(nHandle,"update 基础数据 set 大小比='2:1' where 期号=?qihao")
ENDIF

IF daxiaoxingtai="大小大"
sqlexec(nHandle,"update 基础数据 set 大小比='2:1' where 期号=?qihao")
ENDIF

IF daxiaoxingtai="小大大"
sqlexec(nHandle,"update 基础数据 set 大小比='2:1' where 期号=?qihao")
ENDIF
IF daxiaoxingtai="小小大"
sqlexec(nHandle,"update 基础数据 set 大小比='1:2' where 期号=?qihao")
ENDIF
IF daxiaoxingtai="小大小"
sqlexec(nHandle,"update 基础数据 set 大小比='1:2' where 期号=?qihao")
ENDIF
IF daxiaoxingtai="大小小"
sqlexec(nHandle,"update 基础数据 set 大小比='1:2' where 期号=?qihao")
ENDIF
IF daxiaoxingtai="小小小"
sqlexec(nHandle,"update 基础数据 set 大小比='0:3' where 期号=?qihao")
ENDIF
************************************************************************
判断连号
01 12 23 34 45 56 67 78 89叫两连号
*********************************
下面是我写的程序，帮我改一下，我觉得太长了，功能是能实现，但是我觉得应该可以简写
l1="01"
l2="12"
l3="23"
l4="34"
l5="45"
l6="56"
l7="67"
l8="78"
l9="89"

DO CASE
***************************************************************
CASE baiwei+shiwei=l1
sqlexec(nHandle,"update 基础数据 set 连号=?l1 where 期号=?qihao")
CASE baiwei+gewei=l1
sqlexec(nHandle,"update 基础数据 set 连号=?l1 where 期号=?qihao")
CASE shiwei+baiwei=l1
sqlexec(nHandle,"update 基础数据 set 连号=?l1 where 期号=?qihao")
CASE shiwei+gewei=l1
sqlexec(nHandle,"update 基础数据 set 连号=?l1 where 期号=?qihao")
CASE gewei+baiwei=l1
sqlexec(nHandle,"update 基础数据 set 连号=?l1 where 期号=?qihao")
CASE gewei+shiwei=l1
sqlexec(nHandle,"update 基础数据 set 连号=?l1 where 期号=?qihao")

*****************************************************************
CASE baiwei+shiwei=l2
sqlexec(nHandle,"update 基础数据 set 连号=?l2 where 期号=?qihao")
CASE baiwei+gewei=l2
sqlexec(nHandle,"update 基础数据 set 连号=?l2 where 期号=?qihao")
CASE shiwei+baiwei=l2
sqlexec(nHandle,"update 基础数据 set 连号=?l2 where 期号=?qihao")
CASE shiwei+gewei=l2
sqlexec(nHandle,"update 基础数据 set 连号=?l2 where 期号=?qihao")
CASE gewei+baiwei=l2
sqlexec(nHandle,"update 基础数据 set 连号=?l2 where 期号=?qihao")
CASE gewei+shiwei=l2
sqlexec(nHandle,"update 基础数据 set 连号=?l2 where 期号=?qihao")
*****************************************************************
CASE baiwei+shiwei=l3
sqlexec(nHandle,"update 基础数据 set 连号=?l3 where 期号=?qihao")
CASE baiwei+gewei=l3
sqlexec(nHandle,"update 基础数据 set 连号=?l3 where 期号=?qihao")
CASE shiwei+baiwei=l3
sqlexec(nHandle,"update 基础数据 set 连号=?l3 where 期号=?qihao")
CASE shiwei+gewei=l3
sqlexec(nHandle,"update 基础数据 set 连号=?l3 where 期号=?qihao")
CASE gewei+baiwei=l3
sqlexec(nHandle,"update 基础数据 set 连号=?l3 where 期号=?qihao")
CASE gewei+shiwei=l3
sqlexec(nHandle,"update 基础数据 set 连号=?l3 where 期号=?qihao")
*****************************************************************
CASE baiwei+shiwei=l4
sqlexec(nHandle,"update 基础数据 set 连号=?l4 where 期号=?qihao")
CASE baiwei+gewei=l4
sqlexec(nHandle,"update 基础数据 set 连号=?l4 where 期号=?qihao")
CASE shiwei+baiwei=l4
sqlexec(nHandle,"update 基础数据 set 连号=?l4 where 期号=?qihao")
CASE shiwei+gewei=l4
sqlexec(nHandle,"update 基础数据 set 连号=?l4 where 期号=?qihao")
CASE gewei+baiwei=l4
sqlexec(nHandle,"update 基础数据 set 连号=?l4 where 期号=?qihao")
CASE gewei+shiwei=l4
sqlexec(nHandle,"update 基础数据 set 连号=?l4 where 期号=?qihao")
*****************************************************************
CASE baiwei+shiwei=l5
sqlexec(nHandle,"update 基础数据 set 连号=?l5 where 期号=?qihao")
CASE baiwei+gewei=l5
sqlexec(nHandle,"update 基础数据 set 连号=?l5 where 期号=?qihao")
CASE shiwei+baiwei=l5
sqlexec(nHandle,"update 基础数据 set 连号=?l5 where 期号=?qihao")
CASE shiwei+gewei=l5
sqlexec(nHandle,"update 基础数据 set 连号=?l5 where 期号=?qihao")
CASE gewei+baiwei=l5
sqlexec(nHandle,"update 基础数据 set 连号=?l5 where 期号=?qihao")
CASE gewei+shiwei=l5
sqlexec(nHandle,"update 基础数据 set 连号=?l5 where 期号=?qihao")
*****************************************************************
CASE baiwei+shiwei=l6
sqlexec(nHandle,"update 基础数据 set 连号=?l6 where 期号=?qihao")
CASE baiwei+gewei=l6
sqlexec(nHandle,"update 基础数据 set 连号=?l6 where 期号=?qihao")
CASE shiwei+baiwei=l6
sqlexec(nHandle,"update 基础数据 set 连号=?l6 where 期号=?qihao")
CASE shiwei+gewei=l6
sqlexec(nHandle,"update 基础数据 set 连号=?l6 where 期号=?qihao")
CASE gewei+baiwei=l6
sqlexec(nHandle,"update 基础数据 set 连号=?l6 where 期号=?qihao")
CASE gewei+shiwei=l6
sqlexec(nHandle,"update 基础数据 set 连号=?l6 where 期号=?qihao")
*****************************************************************
CASE baiwei+shiwei=l7
sqlexec(nHandle,"update 基础数据 set 连号=?l7 where 期号=?qihao")
CASE baiwei+gewei=l7
sqlexec(nHandle,"update 基础数据 set 连号=?l7 where 期号=?qihao")
CASE shiwei+baiwei=l7
sqlexec(nHandle,"update 基础数据 set 连号=?l7 where 期号=?qihao")
CASE shiwei+gewei=l7
sqlexec(nHandle,"update 基础数据 set 连号=?l7 where 期号=?qihao")
CASE gewei+baiwei=l7
sqlexec(nHandle,"update 基础数据 set 连号=?l7 where 期号=?qihao")
CASE gewei+shiwei=l7
sqlexec(nHandle,"update 基础数据 set 连号=?l7 where 期号=?qihao")
*****************************************************************
CASE baiwei+shiwei=l8
sqlexec(nHandle,"update 基础数据 set 连号=?l8 where 期号=?qihao")
CASE baiwei+gewei=l8
sqlexec(nHandle,"update 基础数据 set 连号=?l8 where 期号=?qihao")
CASE shiwei+baiwei=l8
sqlexec(nHandle,"update 基础数据 set 连号=?l8 where 期号=?qihao")
CASE shiwei+gewei=l8
sqlexec(nHandle,"update 基础数据 set 连号=?l8 where 期号=?qihao")
CASE gewei+baiwei=l8
sqlexec(nHandle,"update 基础数据 set 连号=?l8 where 期号=?qihao")
CASE gewei+shiwei=l8
sqlexec(nHandle,"update 基础数据 set 连号=?l8 where 期号=?qihao")
*****************************************************************
CASE baiwei+shiwei=l9
sqlexec(nHandle,"update 基础数据 set 连号=?l9 where 期号=?qihao")
CASE baiwei+gewei=l9
sqlexec(nHandle,"update 基础数据 set 连号=?l9 where 期号=?qihao")
CASE shiwei+baiwei=l9
sqlexec(nHandle,"update 基础数据 set 连号=?l9 where 期号=?qihao")
CASE shiwei+gewei=l9
sqlexec(nHandle,"update 基础数据 set 连号=?l9 where 期号=?qihao")
CASE gewei+baiwei=l9
sqlexec(nHandle,"update 基础数据 set 连号=?l9 where 期号=?qihao")
CASE gewei+shiwei=l9
sqlexec(nHandle,"update 基础数据 set 连号=?l9 where 期号=?qihao")
*****************************************************************
OTHERWISE
sqlexec(nHandle,"update 基础数据 set 连号='' where 期号=?qihao")
ENDCASE
程序有点长，接2楼

[此贴子已经被作者于2023-4-21 16:14编辑过]

搜索更多相关主题的帖子: set　基础　update　where　数据　
2023-04-21 15:35
hytizj023
Rank: 1
等　级：新手上路
帖　子：166
专家分：7
注　册：2023-3-2
第 2 楼
 得分:0 
下面是三连号
012 123 234 345 456 567 678 789
*****************************************************************
&&三连号
*****************************************************************
DO CASE

CASE jianghao='012'
sqlexec(nHandle,"update 基础数据 set 连号=?012 where 期号=?qihao")

CASE jianghao='021'
sqlexec(nHandle,"update 基础数据 set 连号=?012 where 期号=?qihao")

CASE jianghao='102'
sqlexec(nHandle,"update 基础数据 set 连号=?012 where 期号=?qihao")

CASE jianghao='120'
sqlexec(nHandle,"update 基础数据 set 连号=?012 where 期号=?qihao")

CASE jianghao='201'
sqlexec(nHandle,"update 基础数据 set 连号=?012 where 期号=?qihao")

CASE jianghao='210'
sqlexec(nHandle,"update 基础数据 set 连号=?012 where 期号=?qihao")

*******************************************************************
CASE jianghao='123'
sqlexec(nHandle,"update 基础数据 set 连号=?123 where 期号=?qihao")

CASE jianghao='132'
sqlexec(nHandle,"update 基础数据 set 连号=?123 where 期号=?qihao")

CASE jianghao='213'
sqlexec(nHandle,"update 基础数据 set 连号=?123 where 期号=?qihao")

CASE jianghao='231'
sqlexec(nHandle,"update 基础数据 set 连号=?123 where 期号=?qihao")

CASE jianghao='321'
sqlexec(nHandle,"update 基础数据 set 连号=?123 where 期号=?qihao")

CASE jianghao='312'
sqlexec(nHandle,"update 基础数据 set 连号=?123 where 期号=?qihao")
********************************************************************
CASE jianghao='234'
sqlexec(nHandle,"update 基础数据 set 连号=?234 where 期号=?qihao")

CASE jianghao='243'
sqlexec(nHandle,"update 基础数据 set 连号=?234 where 期号=?qihao")

CASE jianghao='324'
sqlexec(nHandle,"update 基础数据 set 连号=?234 where 期号=?qihao")

CASE jianghao='342'
sqlexec(nHandle,"update 基础数据 set 连号=?234 where 期号=?qihao")

CASE jianghao='432'
sqlexec(nHandle,"update 基础数据 set 连号=?234 where 期号=?qihao")

CASE jianghao='423'
sqlexec(nHandle,"update 基础数据 set 连号=?234 where 期号=?qihao")
********************************************************************
CASE jianghao='345'
sqlexec(nHandle,"update 基础数据 set 连号=?345 where 期号=?qihao")

CASE jianghao='354'
sqlexec(nHandle,"update 基础数据 set 连号=?345 where 期号=?qihao")

CASE jianghao='453'
sqlexec(nHandle,"update 基础数据 set 连号=?345 where 期号=?qihao")

CASE jianghao='435'
sqlexec(nHandle,"update 基础数据 set 连号=?345 where 期号=?qihao")

CASE jianghao='543'
sqlexec(nHandle,"update 基础数据 set 连号=?345 where 期号=?qihao")

CASE jianghao='534'
sqlexec(nHandle,"update 基础数据 set 连号=?345 where 期号=?qihao")
********************************************************************
CASE jianghao='456'
sqlexec(nHandle,"update 基础数据 set 连号=?456 where 期号=?qihao")

CASE jianghao='465'
sqlexec(nHandle,"update 基础数据 set 连号=?456 where 期号=?qihao")

CASE jianghao='564'
sqlexec(nHandle,"update 基础数据 set 连号=?456 where 期号=?qihao")

CASE jianghao='546'
sqlexec(nHandle,"update 基础数据 set 连号=?456 where 期号=?qihao")

CASE jianghao='654'
sqlexec(nHandle,"update 基础数据 set 连号=?456 where 期号=?qihao")

CASE jianghao='645'
sqlexec(nHandle,"update 基础数据 set 连号=?456 where 期号=?qihao")
*******************************************************************
CASE jianghao='567'
sqlexec(nHandle,"update 基础数据 set 连号=?567 where 期号=?qihao")

CASE jianghao='576'
sqlexec(nHandle,"update 基础数据 set 连号=?567 where 期号=?qihao")

CASE jianghao='657'
sqlexec(nHandle,"update 基础数据 set 连号=?567 where 期号=?qihao")

CASE jianghao='675'
sqlexec(nHandle,"update 基础数据 set 连号=?567 where 期号=?qihao")

CASE jianghao='765'
sqlexec(nHandle,"update 基础数据 set 连号=?567 where 期号=?qihao")

CASE jianghao='756'
sqlexec(nHandle,"update 基础数据 set 连号=?567 where 期号=?qihao")
*******************************************************************
CASE jianghao='678'
sqlexec(nHandle,"update 基础数据 set 连号=?678 where 期号=?qihao")

CASE jianghao='687'
sqlexec(nHandle,"update 基础数据 set 连号=?678 where 期号=?qihao")

CASE jianghao='768'
sqlexec(nHandle,"update 基础数据 set 连号=?678 where 期号=?qihao")

CASE jianghao='786'
sqlexec(nHandle,"update 基础数据 set 连号=?678 where 期号=?qihao")

CASE jianghao='876'
sqlexec(nHandle,"update 基础数据 set 连号=?678 where 期号=?qihao")

CASE jianghao='867'
sqlexec(nHandle,"update 基础数据 set 连号=?678 where 期号=?qihao")
*********************************************************************
CASE jianghao='789'
sqlexec(nHandle,"update 基础数据 set 连号=?789 where 期号=?qihao")

CASE jianghao='798'
sqlexec(nHandle,"update 基础数据 set 连号=?789 where 期号=?qihao")

CASE jianghao='879'
sqlexec(nHandle,"update 基础数据 set 连号=?789 where 期号=?qihao")

CASE jianghao='897'
sqlexec(nHandle,"update 基础数据 set 连号=?789 where 期号=?qihao")

CASE jianghao='987'
sqlexec(nHandle,"update 基础数据 set 连号=?789 where 期号=?qihao")

CASE jianghao='978'
sqlexec(nHandle,"update 基础数据 set 连号=?789 where 期号=?qihao")

ENDCASE
你可以用奖号判断，也可以用组选号判断
2023-04-21 15:49
hytizj023
Rank: 1
等　级：新手上路
帖　子：166
专家分：7
注　册：2023-3-2
第 3 楼
 得分:0 
以下是引用csyx在2023-4-21 21:59:01的发言：

你这连号的代码逻辑有毛病啊，如果奖号是 123，连号填啥，12 还是 23 ？

123叫三连号，当然填123啦
2023-04-21 22:17
hytizj023
Rank: 1
等　级：新手上路
帖　子：166
专家分：7
注　册：2023-3-2
第 4 楼
 得分:0 
以下是引用csyx在2023-4-21 21:59:01的发言：

你这连号的代码逻辑有毛病啊，如果奖号是 123，连号填啥，12 还是 23 ？


连号的意思就是，凡是奖号带01 12 23.........，或者012 123 234.........都叫连号，两个叫两连号，三个叫三连号
例如：201  也叫连号，就是三连号012，两个的，例如：504  叫两连号：45  以此类推
你也通过我的组选号码判断，或者直接用奖号判断也可以，只是组选号是我从小打大排好的了
2023-04-21 22:22
hytizj023
Rank: 1
等　级：新手上路
帖　子：166
专家分：7
注　册：2023-3-2
第 5 楼
 得分:0 
以下是引用shizi0在2023-4-21 22:38:19的发言：

感觉楼主发类似贴很多，有些根本不是编程技术问题，而是透过需求，设计逻辑和算法的问题。
比如这么多枚举case，应该寻找规律合并算法；比如，连号的本质是|位数差|=1.........

基础差，对函数不熟悉，也只能写出这样的程序！理解一下
2023-04-21 22:45
hytizj023
Rank: 1
等　级：新手上路
帖　子：166
专家分：7
注　册：2023-3-2
第 6 楼
 得分:0 
以下是引用pvm2000在2023-4-21 22:44:44的发言：

类似这种数据：
    "update 基础数据 set 连号=?123 where 期号=?qihao"
     ...
应该放到数组或文本文件中导入。

基础不太好，边做边学
2023-04-21 22:48



参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-511995-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.096065 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved