`
wangguo
  • 浏览: 6648 次
  • 性别: Icon_minigender_1
  • 来自: 北京
文章分类
社区版块
存档分类
最新评论

ITeye BBCode编辑器快速排版技巧

ITeye编辑器宏word 
阅读更多
每天和ITeye的编辑器打交道，发布一篇文章时，为了显示规范些，需要花费一定的时间来排版。排版工作相当机械化，就考虑通过Word中的宏来实现，不在非重要的工作上浪费时间，就逐渐写了一些。

这些宏用的是VB语法，没什么难度（多处用到了Word的查找替换功能），但聊胜于无，将这些分享出来，在发布资讯或写博客时可以用来快速排版。这些宏中，大部分都是针对BBCode编辑器（在可视化编辑器中调版式没有BBCode好用）。



使用方法：这些都是针对Microsoft Word，在Word中，按【Alt+F11】打开VBA环境，选择【插入】->【模块】菜单，在编辑器中粘贴本文后面的代码。

运行方法：将光标定位在要使用的宏代码中，单击工具栏中的【运行】按钮即可。

可以将这些宏命令加入到Word的工具栏，像上图一样，使用时直接点击即可。也可将常用的一些命令设置个快捷键，这样效率更高。 




 Sub 自动链接()

'识别链接，提取URL，在链接文本前后加上[URL]标记

For Each aHyperlink In ActiveDocument.Hyperlinks        
   If InStr(LCase(aHyperlink.Address), "http") <> 0 Then        
      aHyperlink.Range.Select
         
    With Selection
      .InsertBefore "[url=" & aHyperlink.Address & "]"
    End With
           
    With Selection
      .InsertAfter "[/url]"
    End With
    
    End If
        
Next aHyperlink

End Sub


Sub 清除格式()

   Selection.ClearFormatting
       
End Sub


Sub 添加行号()

'在选中的每个段落前加上1. 2. 3.……

Dim parag As Paragraph
Dim nLineNum: nLineNum = 0
Dim selRge As Range
Set selRge = Selection.Range
  
  For Each parag In Selection.Paragraphs
  nLineNum = nLineNum + 1
  
  
If nLineNum > 0 Then
   selRge.Paragraphs(nLineNum).Range.InsertBefore (nLineNum & ".  ")
 
 End If
  
  
'个位数前自动添加0
' If nLineNum < 10 And nLineNum > 0 Then
'    selRge.Paragraphs(nLineNum).Range.InsertBefore ("0" & nLineNum & "   ")
'  Else
'    selRge.Paragraphs(nLineNum).Range.InsertBefore (nLineNum & "   ")
'  End If
  
 Next
End Sub



Sub 表格转换()

'将表格转换成bbcode表格格式

换表格
每段加竖线
首尾加table

End Sub


Sub 换表格()

' 将文本换为表格

    Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _
        NestedTables:=True
End Sub

Sub 首尾加table()

'选择区域首位加上[ table]、[ /table]

With Selection
    .InsertParagraphBefore
End With
  
With Selection
    .InsertBefore "[ table]"
End With

With Selection
    .InsertAfter "[ /table]"
End With

End Sub


Sub 每段加竖线()

'选择区域所有段落前加|

Dim parag As Paragraph
Dim nLineNum: nLineNum = 0
Dim selRge As Range
Set selRge = Selection.Range
  
  For Each parag In Selection.Paragraphs
  
 
  nLineNum = nLineNum + 1
  
  
  If nLineNum > 0 Then
  

    selRge.Paragraphs(nLineNum).Range.InsertBefore ("|")
        
    Set myrange = selRge.Paragraphs(nLineNum).Range
        
    myrange.End = myrange.End - 1
    
    myrange.InsertAfter ("|")


  End If
  
 Next

End Sub



Sub 图片居中()

' 在所有[img][/img]标记前后加上[align=center][/align]

    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[img]"
        .Replacement.Text = "[align=center][img]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[/img]"
        .Replacement.Text = "[/img][/align]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub 删除空白行()

'删除空行

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub



Sub 段首加空格()

'在每段段首加上4个半角空格

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p    "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Sub 段首删空格()

'删除每段段首的空格

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p "
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Sub 删图()

'删除Word文档中的所有图片

Dim pic As InlineShape 
 For Each pic In ActiveDocument.InlineShapes 
 If pic.Width <> 0 Then
pic.Select 
 Selection.Delete 
 End If
Next

End Sub


Sub 手动换行()

'将所有段落标记替换为手动换行标记


    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^l"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub 自动换行()

'将所有手动换行标记替换为段落标记

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub 换HTML空格()

' 将所有HTML格式空格替换为半角空格

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
       
End Sub


Sub 自动缩放图()

'将Word文档中的可见图片调整为统一大小

Dim myis As InlineShape

For Each myis In ActiveDocument.InlineShapes
    
  If myis.Width > CentimetersToPoints(2.5) Then
  
      
   If myis.Width < CentimetersToPoints(0.5) Then GoTo 10
   If myis.Height < CentimetersToPoints(0.5) Then GoTo 10
     
     myis.Reset
     
    ' myis.PictureFormat.ColorType = msoPictureGrayscale

     myis.LockAspectRatio = msoTrue
     
    
    myis.ScaleWidth = 70
    
    If myis.Width > CentimetersToPoints(5) Then myis.Width = CentimetersToPoints(9)
    
    myis.ScaleHeight = myis.ScaleWidth
         
      
  End If

10: Next myis
End Sub

Sub 图居中()

'居中Word文档中的所有可见图片

Dim myis As InlineShape

For Each myis In ActiveDocument.InlineShapes
    
  If myis.Width > 0 Then
  
  myis.Select
  
  
  Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
      
        
  End If

Next myis
End Sub


Sub 换全角空格()

' 将所有全角空格替换为半角空格

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "　"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Sub 换空格()
 
  换HTML空格
  换全角空格

End Sub



Sub 加粗()

'在选中的文字前后加上[b][/b]
  
With Selection
    .InsertBefore "[b]"
End With

With Selection
    .InsertAfter "[/b]"
End With


End Sub


Sub 加链接()

  
  
With Selection
    .InsertBefore "[url]"
End With

With Selection
    .InsertAfter "[/url]"
End With


End Sub

Sub 加链接2()
  
  
With Selection
    .InsertBefore "[url=]"
End With

With Selection
    .InsertAfter "[/url]"
End With


End Sub

Sub 列表标签()

'选择区域首位加上[list][/list]

With Selection
    .InsertParagraphBefore
End With
  
With Selection
    .InsertBefore "[list]"
End With

With Selection
    .InsertAfter "[/list]"
End With


End Sub

Sub 列表段号()

'选择区域所有段落前加[*]

Dim parag As Paragraph
Dim nLineNum: nLineNum = 0
Dim selRge As Range
Set selRge = Selection.Range
  
  For Each parag In Selection.Paragraphs
  nLineNum = nLineNum + 1
  
  If nLineNum > 0 Then
    selRge.Paragraphs(nLineNum).Range.InsertBefore ("[*]")
  End If
  
 Next

End Sub

Sub 加列表()

列表段号
列表标签

End Sub


Sub 去底纹()


    Selection.WholeStory
    
    去段落底纹
    去文字底纹
    
End Sub
Sub 去文字底纹()
    
    
    With Selection.Font
        With .Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorAutomatic
            .BackgroundPatternColor = wdColorAutomatic
        End With
        .Borders(1).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
End Sub

Sub 去段落底纹()

  
    With Selection.ParagraphFormat
        With .Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorAutomatic
            .BackgroundPatternColor = wdColorAutomatic
        End With
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
        With .Borders
            .DistanceFromTop = 1
            .DistanceFromLeft = 4
            .DistanceFromBottom = 1
            .DistanceFromRight = 4
            .Shadow = False
        End With
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
End Sub


Sub 标题样式加粗()


'如果段落样式为指定样式，则在首位加上[b][/b]

Dim cuti As Paragraph
 
  For Each cuti In ActiveDocument.Paragraphs
  
  If cuti.Style = ActiveDocument.Styles("标题 3") Then
  
  cuti.Range.Select
  
  With Selection
      .InsertBefore "[b]"
    End With
           
    With Selection
      .InsertAfter "[/b]"
    End With

  End If
  
 Next


End Sub

Sub 标题长度加粗()


' 要求用户设置长度值

Dim Message, Title, Default, MyValue

Message = "请输入限定的段落文本字/单词数"

Title = "限定长度"

Default = "10"

MyValue = InputBox(Message, Title, Default)

' 如果段落文字长度小于设定值，则在首位加上[b][/b]

Dim cuti As Paragraph
 
  For Each cuti In ActiveDocument.Paragraphs
  
      
  If cuti.Range.Words.Count < MyValue And cuti.Range.Words.Count > 1 Then
  
  
'  Range.Characters.Count < 20 Then
       
  cuti.Range.Select
     
  With Selection
      .InsertBefore "[b]"
    End With
        
   Selection.EndKey Unit:=wdLine
   Selection.TypeText Text:="[/b]"
   Selection.MoveRight Unit:=wdCharacter, Count:=1
      
    
   ' With Selection
   '   .InsertAfter "[/b]"
  '  End With

  End If
   
 Next

End Sub

Sub 清除加粗()

' 清除所有的加粗标记[b][/b]

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[b]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "[/b]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub 修复分段()
'
' 文中有不正确的分段标记，该宏可以修复此类问题
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "aaabbbccc"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ".aaabbbccc"
        .Replacement.Text = ".^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "aaabbbccc"
        .Replacement.Text = "   "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Sub 删空行()


Dim kong As Paragraph
 
  For Each kong In ActiveDocument.Paragraphs
  
      
  If kong.Range.Characters.Count = 1 Then
  
         
  kong.Range.Select
  
  Selection.Delete
       
  
  End If
   
 Next

段首删空格


End Sub
Sub 检查链接()
'
' 检查“[url=”和“http://”中是否有空格，有则删除
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[url= http://"
        .Replacement.Text = "[url=http://"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   
    With Selection.Find
        .Text = "[url= https://"
        .Replacement.Text = "[url=https://"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub


Sub 取消所有超链接()

'清除所有的超链接


Dim oField As Field

For Each oField In ActiveDocument.Fields
 If oField.Type = wdFieldHyperlink Then
   oField.Unlink
 End If
   
Next
   Set oField = Nothing
End Sub


Sub 选择部分手动换行()

'将选择部分的段落标记替换为手动换行标记

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^l"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub



Sub 周报链接()

'Markup语法（写周报用）：识别链接，提取URL，加上#

For Each aHyperlink In ActiveDocument.Hyperlinks
        
   If InStr(LCase(aHyperlink.Address), "http") <> 0 Then
        
      aHyperlink.Range.Select
         
    With Selection
      .InsertBefore "#[" & aHyperlink.Address & " "
    End With
           
    With Selection
      .InsertAfter "]"
    End With
    
    End If
        
Next aHyperlink


End Sub


Sub 超级替换()

'把常见的确实可以自动替换的错别字进行自动替换。
'第一个参数是错别字，第二个参数是正确的字


替换常用错别字 "惟一", "唯一"
替换常用错别字 "帐号", "账号"
替换常用错别字 "图象", "图像"
替换常用错别字 "登陆", "登录"
替换常用错别字 "其它", "其他"
替换常用错别字 "按装", "安装"
替换常用错别字 "按纽", "按钮"
替换常用错别字 "成份", "成分"
替换常用错别字 "题纲", "提纲"
替换常用错别字 "煤体", "媒体"
替换常用错别字 "存贮", "存储"
替换常用错别字 "一桢", "一帧"
替换常用错别字 "好象", "好像"
替换常用错别字 "对像", "对象"


End Sub

Sub 替换常用错别字(strWrong As String, strRight)

'此过程仅供程序调用，不要人手工使用
'
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = strWrong
        .Replacement.Text = strRight
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub






Sub 段间加空行()

'在段落间加上空行，[list]列表之间不加空行

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
     Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p[*]"
        .Replacement.Text = "[*]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   
     
     Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[/list]^p^p"
        .Replacement.Text = "[/list]^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   
    
End Sub

Sub 字体红色()
  
With Selection
    .InsertBefore "[color=red]"
End With

With Selection
    .InsertAfter "[/color]"
End With


End Sub

  • 大小: 26.1 KB
  • 大小: 51.2 KB
分享到：
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

    Macro_word:本人工作中常用到的Word宏（原创）

    Macro_word使用VBA编写的Word宏，主要用于ITeye日常编辑工作中内容的排版（在Word中将内容转换为BBCode编辑器中的格式）。主要包括：所有图片自动居中删除所有图片删除所有空行每段之间添加空行段首删除空格表格自动...

    全球变风量（VAV）系统市场研究：年复合增长率（CAGR）为 5.8%

    在全球建筑行业不断追求节能与智能化发展的浪潮中，变风量（VAV）系统市场正展现出蓬勃的发展潜力。根据 QYResearch 报告出版商的深入调研统计，预计到 2031 年，全球变风量（VAV）系统市场销售额将飙升至 1241.3 亿元，在 2025 年至 2031 年期间，年复合增长率（CAGR）为 5.8%。这一令人瞩目的数据，不仅彰显了 VAV 系统在当今建筑领域的重要地位，更预示着其未来广阔的市场前景。​ 变风量系统的起源可追溯到 20 世纪 60 年代的美国。它犹如建筑空调系统中的 “智能管家”，能够敏锐地感知室内负荷或室内所需参数的变化，通过维持恒定的送风温度，自动、精准地调节空调系统的送风量，从而确保室内各项参数始终满足空调系统的严格要求。从系统构成来看，变风量系统主要由四个基本部分协同运作。变风量末端设备，包括 VAV 箱和室温控制器，如同系统的 “神经末梢”，负责接收室内环境变化的信号并做出初步响应；空气处理及输送设备则承担着对空气进行净化、加热、冷却等处理以及高效输送的重任；风管系统，涵盖新风、排风、送风、回风等管道，构建起了空气流通的 “高速公路”；而自动控制系统宛

    《基于YOLOv8的跆拳道训练系统》（包含源码、完整数据集、可视化界面、部署教程）简单部署即可运行。功能完善、操作简单，适合毕设或课程设计.zip

    资源内项目源码是来自个人的毕业设计，代码都测试ok，包含源码、数据集、可视化页面和部署说明，可产生核心指标曲线图、混淆矩阵、F1分数曲线、精确率-召回率曲线、验证集预测结果、标签分布图。都是运行成功后才上传资源，毕设答辩评审绝对信服的保底85分以上，放心下载使用，拿来就能用。包含源码、数据集、可视化页面和部署说明一站式服务，拿来就能用的绝对好资源！！！ 项目备注 1、该资源内项目代码都经过测试运行成功，功能ok的情况下才上传的，请放心下载使用！ 2、本项目适合计算机相关专业(如计科、人工智能、通信工程、自动化、电子信息等)的在校学生、老师或者企业员工下载学习，也适合小白学习进阶，当然也可作为毕设项目、课程设计、大作业、项目初期立项演示等。 3、如果基础还行，也可在此代码基础上进行修改，以实现其他功能，也可用于毕设、课设、作业等。 下载后请首先打开README.txt文件，仅供学习参考, 切勿用于商业用途。

    探究ChatGPT情感化交互对其用户情绪健康的多方法研究

    内容概要：本文探讨了ChatGPT这种高级语音模式的人工智能聊天机器人与用户的互动对其情绪健康的影响。研究采用了两种互补的方法：大规模平台数据分析和随机对照试验（RCT）。平台数据部分通过对超过400万次对话进行隐私保护的大规模自动化分析以及对4000多名用户的调查，揭示了高频率使用者表现出更多的情感依赖和较低的社会交往意愿。RCT部分则通过近1000名参与者为期28天的研究，发现语音模型相较于文本模型能带来更好的情绪健康效果，但长时间使用可能导致负面后果。此外，初始情绪状态较差的用户在使用更具吸引力的语音模型时，情绪有所改善。 适合人群：对人机交互、情感计算和社会心理学感兴趣的科研人员和技术开发者。 使用场景及目标：本研究旨在为AI聊天机器人的设计提供指导，确保它们不仅能满足任务需求，还能促进用户的心理健康。同时，也为政策制定者提供了关于AI伦理使用的思考。 其他说明：研究强调了长期使用AI聊天机器人可能带来的复杂心理效应，特别是对于那些已经感到孤独或社交孤立的人来说，过度依赖可能会加剧这些问题。未来的研究应该更加关注这些极端情况下的用户体验。

    Java反射性能优化：深入探讨setAccessible与MethodHandle的技术差异及应用场景

    Java 反射（Reflection）是一种强大的机制，允许程序在运行时检查和操作类的成员变量和方法。然而，传统的 `setAccessible(true)` 方式虽然便捷，但存在安全性问题，并且性能相对较低。在 Java 7 引入 `MethodHandle` 后，我们可以通过 `MethodHandles.Lookup.findVirtual()` 提供更优雅、高效的方式来访问对象属性。本文将对比这两种反射方式，并分析它们的优缺点。

    loongdomShop.tar.gz

    loongdomShop.tar.gz

    人工智能与人类行为对聊天机器人社会心理效应的纵向随机对照研究

    内容概要：本文探讨了不同交互模式（文本、中性语音、吸引人语音）和对话类型（开放式、非个人化、个人化）对聊天机器人使用者的心理社会效果（如孤独感、社交互动、情感依赖、不当使用）的影响。研究表明，在初期阶段，语音型聊天机器人比文本型更能缓解孤独感并减少情感依赖，但随着每日使用时间增加，这种优势逐渐消失，尤其是对于中性语音聊天机器人。此外，个人话题对话略微增加了孤独感，而非个人话题则导致更高的情感依赖。总体而言，高频率使用聊天机器人的用户表现出更多的孤独感、情感依赖和不当使用，同时减少了真实人际交往。研究还发现，某些个体特征（如依恋倾向、情绪回避）使用户更容易受到负面影响。 适合人群：心理学家、社会学家、人工智能研究人员以及关注心理健康和人机交互的专业人士。 使用场景及目标：①帮助理解不同类型聊天机器人对用户心理健康的潜在影响；②为设计更健康的人工智能系统提供指导；③制定政策和规范，确保聊天机器人的安全和有效使用。 其他说明：研究强调了进一步探索聊天机器人管理情感内容而不引发依赖或替代人际关系的重要性，呼吁更多跨学科的研究来评估长期影响。

    MP4575GF-Z 产品规格书

    MP4575GF-Z MP4575 TSSOP-20 降压型可调DC-DC电源芯片

    界面设计_SwiftUI_习惯养成_项目管理_1742850611.zip

    界面设计_SwiftUI_习惯养成_项目管理_1742850611.zip

    免安装版的logic软件包 支持波形实时查看 内含驱动文件

    免安装版的logic软件包。支持波形实时查看。内含驱动文件。

    基于Springboot+Mysql的学生毕业离校系统(含LW+PPT+源码+系统演示视频+安装说明).zip

    1. **系统名称**：学生毕业离校系统 2. **技术栈**：Java技术、MySQL数据库、Spring Boot框架、B/S架构、Tomcat服务器、Eclipse开发环境 3. **系统功能**： - **管理员功能**：首页、个人中心、学生管理、教师管理、离校信息管理、费用结算管理、论文审核管理、管理员管理、留言板管理、系统管理。 - **学生功能**：首页、个人中心、费用结算管理、论文审核管理、我的收藏管理。 - **教师功能**：首页、个人中心、学生管理、离校信息管理、费用结算管理、论文审核管理。

    WebSocket测试Demo程序

    配套文章:https://blog.csdn.net/gust2013/article/details/139608432

    蓝凌OA系统V15.0管理员手册

    蓝凌OA系统V15.0管理员手册

    《基于YOLOv8的生物样本识别系统》（包含源码、完整数据集、可视化界面、部署教程）简单部署即可运行。功能完善、操作简单，适合毕设或课程设计.zip

    资源内项目源码是来自个人的毕业设计，代码都测试ok，包含源码、数据集、可视化页面和部署说明，可产生核心指标曲线图、混淆矩阵、F1分数曲线、精确率-召回率曲线、验证集预测结果、标签分布图。都是运行成功后才上传资源，毕设答辩评审绝对信服的保底85分以上，放心下载使用，拿来就能用。包含源码、数据集、可视化页面和部署说明一站式服务，拿来就能用的绝对好资源！！！ 项目备注 1、该资源内项目代码都经过测试运行成功，功能ok的情况下才上传的，请放心下载使用！ 2、本项目适合计算机相关专业(如计科、人工智能、通信工程、自动化、电子信息等)的在校学生、老师或者企业员工下载学习，也适合小白学习进阶，当然也可作为毕设项目、课程设计、大作业、项目初期立项演示等。 3、如果基础还行，也可在此代码基础上进行修改，以实现其他功能，也可用于毕设、课设、作业等。 下载后请首先打开README.txt文件，仅供学习参考, 切勿用于商业用途。

    mips-gcc520-glibc222编译工具链.zip

    mips-gcc520-glibc222编译工具链.zip

    社交网络_React_Native_开发教程_学习资源_1742847416.zip

    app开发

    Swift编程语言的基础特性与应用开发入门教程

    内容概要：本文档详细介绍了Swift编程语言的基础知识，涵盖语言特点、基础语法、集合类型、控制流、函数定义、面向对象编程、可选类型、错误处理、协议与扩展以及内存管理等方面的内容。此外还简要提及了Swift与UIKit/SwiftUI的关系，并提供了进一步学习的资源推荐。通过这份文档，读者可以全面了解Swift的基本概念及其在iOS/macOS/watchOS/tvOS平台的应用开发中的使用方法。 适合人群：初学者或者希望从其他编程语言转向Swift的开发者。 使用场景及目标：帮助读者快速上手Swift编程，掌握其基本语法和特性，能够独立完成简单的程序编写任务，为进一步学习高级主题如并发编程、图形界面设计打下坚实的基础。 阅读建议：由于Swift是一门现代化的语言，拥有许多独特的特性和最佳实践方式，在学习过程中应当多加练习并尝试理解背后的原理。同时利用提供的官方文档和其他辅助材料加深印象。

    《基于YOLOv8的泰拳训练辅助系统》（包含源码、完整数据集、可视化界面、部署教程）简单部署即可运行。功能完善、操作简单，适合毕设或课程设计.zip

    资源内项目源码是来自个人的毕业设计，代码都测试ok，包含源码、数据集、可视化页面和部署说明，可产生核心指标曲线图、混淆矩阵、F1分数曲线、精确率-召回率曲线、验证集预测结果、标签分布图。都是运行成功后才上传资源，毕设答辩评审绝对信服的保底85分以上，放心下载使用，拿来就能用。包含源码、数据集、可视化页面和部署说明一站式服务，拿来就能用的绝对好资源！！！ 项目备注 1、该资源内项目代码都经过测试运行成功，功能ok的情况下才上传的，请放心下载使用！ 2、本项目适合计算机相关专业(如计科、人工智能、通信工程、自动化、电子信息等)的在校学生、老师或者企业员工下载学习，也适合小白学习进阶，当然也可作为毕设项目、课程设计、大作业、项目初期立项演示等。 3、如果基础还行，也可在此代码基础上进行修改，以实现其他功能，也可用于毕设、课设、作业等。 下载后请首先打开README.txt文件，仅供学习参考, 切勿用于商业用途。

    《基于YOLOv8的室内装修质量检测系统》（包含源码、完整数据集、可视化界面、部署教程）简单部署即可运行。功能完善、操作简单，适合毕设或课程设计.zip

    资源内项目源码是来自个人的毕业设计，代码都测试ok，包含源码、数据集、可视化页面和部署说明，可产生核心指标曲线图、混淆矩阵、F1分数曲线、精确率-召回率曲线、验证集预测结果、标签分布图。都是运行成功后才上传资源，毕设答辩评审绝对信服的保底85分以上，放心下载使用，拿来就能用。包含源码、数据集、可视化页面和部署说明一站式服务，拿来就能用的绝对好资源！！！ 项目备注 1、该资源内项目代码都经过测试运行成功，功能ok的情况下才上传的，请放心下载使用！ 2、本项目适合计算机相关专业(如计科、人工智能、通信工程、自动化、电子信息等)的在校学生、老师或者企业员工下载学习，也适合小白学习进阶，当然也可作为毕设项目、课程设计、大作业、项目初期立项演示等。 3、如果基础还行，也可在此代码基础上进行修改，以实现其他功能，也可用于毕设、课设、作业等。 下载后请首先打开README.txt文件，仅供学习参考, 切勿用于商业用途。

    《基于YOLOv8的雕塑识别系统》（包含源码、完整数据集、可视化界面、部署教程）简单部署即可运行。功能完善、操作简单，适合毕设或课程设计.zip

    资源内项目源码是来自个人的毕业设计，代码都测试ok，包含源码、数据集、可视化页面和部署说明，可产生核心指标曲线图、混淆矩阵、F1分数曲线、精确率-召回率曲线、验证集预测结果、标签分布图。都是运行成功后才上传资源，毕设答辩评审绝对信服的保底85分以上，放心下载使用，拿来就能用。包含源码、数据集、可视化页面和部署说明一站式服务，拿来就能用的绝对好资源！！！ 项目备注 1、该资源内项目代码都经过测试运行成功，功能ok的情况下才上传的，请放心下载使用！ 2、本项目适合计算机相关专业(如计科、人工智能、通信工程、自动化、电子信息等)的在校学生、老师或者企业员工下载学习，也适合小白学习进阶，当然也可作为毕设项目、课程设计、大作业、项目初期立项演示等。 3、如果基础还行，也可在此代码基础上进行修改，以实现其他功能，也可用于毕设、课设、作业等。 下载后请首先打开README.txt文件，仅供学习参考, 切勿用于商业用途。

Magicbox
Global site tag (gtag.js) - Google Analytics